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Spiel und Anwenderprogramme für Ihren Commo- 
dore-Computer. 
Wir haben für Sie u.a. ausgewählt: 


% Simons Newplot (6-64) 
Die hervorragenden Eigen- 
schaften des CBM 64 las- 
sen sich nicht nur für Spie- 
le verwenden. Benutzt 
man zum Programmieren 
noch eine Basic-Hilfe wie 
Simons Basic, so ent- 
Stehen solche tollen Hilfs- 
programme wie Simons 
Newplot mit dem man me- 
nuegesteuert, mathemati- 
sche Funktionen grafisch 
und farbig darstellen kann. 
Sie finden dieses tolle An- 
wenderprogramm auf 
Seite 25 


% Gold der Geister (VC-20) 
Finden Sie das Gold der 
Geister und bringen es in 
Sicherheit. 


% Light Pen (VC-20) 


Unergründlich und ver- 
Schlungen sind die Wege, 
in denen Firmen die Preise 
für ihre Hardware errech- 
nen. 
Das Erweiterungen für Ih- 
ren Computer nicht teuer 
sein müssen, beweisen 
wir in dieser Ausgabe am 
Beispiel eines Lightpens. 
Sie finden die komplette 
Bauanleitung und Trei- 
bersoftware für VC-20 
und CBM 64 auf Seite 21 
% Jumping Painter (VC-20) 
Donkey Kong und Q-Bert 
Sind tot... es lebe der Jum- 
ping Painter. 
In diesem Heft eine Kom- 
bination dieser beiden welt- 
bekannten Programme. 


Hannover 
Messe’85 


Hannover ’85 — 


ushlick i 


‘Noch müssen sechs Monate ins Land ziehen, bis die Hannover- 
Messe ’85 ihre Pforten öffnen wird, doch schon heute laufen die 
Vorbereitungen auf vollen Touren. Was für uns Fans der Infor- 
mationstechnologie so alles ausgetüftelt und im April ’85 prä- 
sentiert wird, erfahren Sie schon heute, wenn $ie Seite 4 an- 
steuern. 


V-24 Schnittstellen- 
Umschalter 


Besitzer einer umfangreichen 
Peripherie auf V-24-Basis 
finden mit diesem Gerät ein 
nützliches Requisit, das die 


‚tägliche Programmierarbeit 


wesentlich angenehmer 
macht. 


. Computer und Peripherie wer- 


den gemeinsam angeschlos- 
sen und können beliebig per 
Knopfdruck gekoppelt 
werden. Schauen Sie sich das 
Kästchen auf Seite 5 mal 
an! 


Assemblerkurs 
(Teil 6) 


In dieser Folge unseres Lehr- 
ganges für angehende Ma- 
schinensprache-Program- 
mierer dreht sich wieder alles 
um Erweiterung des Editors. 
Wenn Sie den vorliegenden 
Teil durchgearbeitet haben, 
werden Sie in der Lage sein, 
reine Assemblerlistings über 
Ihren Drucker auszugeben, 
ohne den nur begrenzt lei- 
stungsfähigen "T”-Befehl 
einsetzen zu müssen. 


ınhalt 
Telex 


Vorschau auf die Hannover- 

Messe ’85 

Mit dem Rückenwind eines alle 
bisherigen Ergebnisse übertreffenden 
Erfolges im April 1984 steuert der 
internationale Branchenverbund 
"Weltmarkt Elektronik” in eine 
neue Messe-Ära. 4 


Preissenkung für Typenraddrucker 


V-24-Schnittstellenumschalter 5 


Adventure Ecke 

Gruds in Space 

Ein Adventure von Sirius, 

bei dem Sie Ihre Fähigkeiten als 
privater Händler in einem 
Handelsraumschiff unter 


Beweis stellen können. 6 
Jumping Painter (VC-20) 1 
Kaboom (VC-20) 14 
Kniffel (VC-20) 16 
Light Pen (VC-20) 21 
Gold der Geister (VC-20) 23 
Simons Neuplot (C-64) 25 
Crazy Car (C-64) 35 


Mensch ärgere Dich doch (C-64) 44 
Programmverwaltung (C-64) 52 


Werkstatt 

Logik im Basicprogramm 

(Teil 6) 28 
In der neuesten Folge unserer 
speziellen Serie für Freaks, die 
sich den letzten Schliff holen 
wollen, erfahren Sie wertvolle 
Dinge in Sachen Programmaufbau. 
Vom ersten Planspiel bis zum 
fertigen Basic-Listing ist es 

nicht weit, wenn man darauf 


verzichtet, blind drauf los zu 
tippen. Das Besondere: eine 
interessante Hausaufgabe, die 
innerhalb einer Woche zu 
bewältigen ist und Ihnen sicher 
einiges zu tüfteln geben wird. 


Assembler-Kurs 

(Teil 6) 32 
Auch diesmal bringen wir wieder 
eine Erweiterung für den Editor. 


Berichte 


4. Internationale COMMODORE- 
Fachausstellung 

Vom 6. bis 8. September 1984 

fand in der Halle 1 des Frankfurter 
Messegeländes die 4. Internatio- 
nale COMMODORE-Fachaus- 
stellung (CFA) statt. 30 


Speicherplatz geklaut? 

oder was passiert eigentlich mit 
dem 64K RAM des 6-64? 

Viele Käufer eines Commodore 64 
wundern sich nach dem ersten 
Anschließen des Gerätes. Der C-64 
meldet sich mit 38K freiem 
Speicherplatz. Da der C-64 jedoch 
64K RAM hat, bleibt häufig die 
Frage offen: Wohin gehen die 
restlichen 26KByte? 56 


GM-Lexikon 58 
Tips & Tricks 59 


Softwarereviews 

Cosmic Bouncer 

Raid on Bungeling Bay 

Megahawk 60 
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IEEE-488 BUS ion 
für 

COMMODORE 64 
LIZENZ TECHNOFOR Decke 
ui Theo rosel Weg-8000 München do 


C64/IEEE-488 
Steckmodul 


Dieser ausgereifte, weltweit erprobte IEEE-488-Modul eröff- 
net dem Commodore 64 über seinen parallelen Ausgang 
ungeahnte Einsatzmöglichkeiten wie: 

große, IEEE-kompatible CBM-Peripherie am C-64, simulta- 
nen (seriell - VC/paralleler - IEEE) Datenverkehr. Konflikt- 
freie, speicherverschiebliche Modulsoftware. Im Einsatz bei- 
spielsweise in Schulen ermöglicht der IEEE-488-Steck- 


een 


modul problemlose Mehrbenutzersysteme am IEC-Bus wie 
auch durch die rationell genutzte Peripherie: z.B. zahlreiche 
Computer an einer Doppelfloppy. 

In der Industrie bietet der IEEE-488-Steckmodul 

die Möglichkeit für preisgünstige IEC-Meß-/Steuersysteme 

mit dem Commodore 64 als Controller. Zu diesem Modul wird 
ein Betriebshandbuch geliefert, in dem Beschreibungen zu 
fast sämtlichen Anwendungsfällen mit Programmbeispielen, 
Belegungstabellen, Angaben zum erforderlichen Kabel- und Steckermaterial, Literatur 
etc. aufgeführt sind. Zusätzlich können zum IEEE-488-Steckmodul Anwendungs- 
hilfen wie u.a. Disketten mit Lesekennzeichen, Utility-Disketten usw. bezogen werden. 


IEEE-Steckmodul für Commodore 64 
einschließlich Betriebshandbuch DM 239,——- inkl. MwSt. 


ALLAN. 
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Theo-Prosel-Weg 1 
8000 München 40 


NEU! C-64 Computerhandbuch 

Ein Handbuch für jeden Erfahrungsstand: von 
der ersten Begegnung bis zum professionellen 
Einsatz des COMMODORE 64 bzw. 1541. Das 


CBM Computer Handbuch 

Dieses unentbehrliche Nachschlagewerk bietet 
eine wahre Fundgrube - mit einer schrittweisen 
Einführung bis hin zur Darstellung aller profes- 


is Bias 
cBm 

COMPUTER 

HANDBUCH 


Werk ist sehr bildreich und bietet somit eine 
schnelle Übersicht — als echtes Nachschlage- 
werk werden Sie es stets in der Nähe Ihres 
Computers finden. 


“"Raeto West, ca. 400 Seiten, Softcover, 


DM 56.--. 4. Qu. 84 
NEU! C-64 Akustik und Graphik 


Ein planvoller Lehrgang - keine Beispielsamm- 


lung - in anschaulichem Stil — daher für jedes 
Alter. Dieses Werk eröffnet dem C-64-Benutzer 


die Welt der Graphiken und Klangbilder. Es ent- 


hält Programmbibliotheken und wird abgerun- 
det durch zahlreiche Anhänge. 

John Anderson, ca. 200 Seiten, Softcover, 
DM 49,--, 4. Qu. 84 


6502 - Programmieren in Assembler 
Dieses Buch behandelt ausführlich die Assem- 
blersprachen-Programmierung für den weitver- 
breiteten Mikroprozessor 6502. Er steckt auch 
in Ihrem C-64. 

Lance Leventhal, 704 Seiten, Softcover, 

DM 59,-- 


(ut COUPON 
= 


uf en 


sionellen Möglichkeiten dieses beliebten Com- 
puters. 

Osborne/Danahue, 544 Seiten, Softcover, 
DM 59,-- 


NEU! LOGO Computersprache für Kinder 
und Eltern 

Dieses Buch beweist: Jeder kann program- 
mieren. LOGO ist die Computersprache für 
Eltern und Kinder. Nicht umsonst wurde dieser 
Titel zum „Buch des Jahres 1983“ in den USA. 
LOGO ist das Ergebnis der Erforschung 
menschlicher Intelligenz; entwickelt von einem 
Pädagogen und Mathematikprofessor. LOGO 
ist die erste Computersprache, die bewußt Stra- 
tegien menschlichen Denkens dient. 

Daniel Watt, ca. 400 Seiten, Softcover, 

DM 59,--, 4. Qu. 84 


Hiermit bestelle(n) ich (wir): 


| 

| 

| 

; | 

Der Sensible C-64 4.Q.84, DM 29,80 | 
CP/M und WordStar DM 29,80 | 
| 

| 

| 

| 
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C-64 Programmsammlung 


4.0.84, DM 29,80 


VisiCalc (mit CBM Diskette) DM 79,-- Datum Unterschrift 
77 BASIC Programme DM 39,-- 
Mikrocomputer-Grundwissen DM 36,-- N Fi 
C-64 Computer für Kinder 4.0.84, DM 29,80 BIDE/TÜCTE 
VC20 Computer für Kinder 4.Q.84, DM 29,80 
Straße/Postfach 
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Mit dem Rückenwind eines 
alle bisherigen Ergebnisse 
übertreffenden Erfolges im 
April 1984 steuert der inter- 
nationale Branchenverhund 
"Weltmarkt Elektronik und 
Elektrotechnik” in eine neue 
Messe-Ara. Von der Han- 
nover-Messe ’85 an (17. bis 
24. April) stellt sich die größte 
Fachmesse der "Messe der 
Messen” in weiten Teilen 
strukturell verbessert vor. 
Uber die Zielsetzung sind sich 
die ausstellende Industrie 
und die Deutsche Messe- und 
Ausstellungs-AG einig: 


1.) Das weltweit einmalige 
Angebot an elektronischen 
und elektrotechnischen Inve- 
stitions- und Gebrauchs- 
gütern sowie Technologie- 
Know-how wird noch weiter 
ausgebaut, qualifiziert und 
konzentriert. 

2.) Die Vorteile des Tech- 
nologie- und Angebot-Ver- 
bundes innerhalb der Elektro- 
branche und darüber hinaus 
mit den benachbarten weite- 
ren neun Fachmessen der 
Hannover-Messe werden 
noch stärker nutzbar ge- 
macht. 


Zur Hannover-Messe '85 er- 
höht sich die Netto-Aus- 
stellungsfläche des "”Welt- 
marktes Elektronik und 
Elektrotechnik” auf über 126 
000 Quadratmeter. Darüber 
wurde die Halle 13 endgültig 
in den Elektrobereich einbe- 
zogen, und die Hallen 11 und 
12 sind durch neue, breite 
Übergänge im ersten Oberge- 
schoß noch funktioneller mit- 
einander verbunden. Die nun- 


mehr acht Elektrohallen (von 
8 bis 15) und das Elektrofrei- 
gelände nehmen rund 1900 
Aussteller, davon 550 (knapp 


30 Prozent) aus dem 
Ausland auf. 

Mit den strukturellen Anpas- 
sungen, die überall im Bereich 
und Umfeld der Hannover- 
Messe stattfinden, entspricht 
die Messe-AG dem aktuellen 
Wandel, den in der Industrie 
vor allem die Schlüsseltech- 
nologie Mikroelektronik aus- 
löst. Diese innovative Tech- 
nologie wird im Rahmen der 
Fachmesse "Weltmarkt Elek- 
tronik und Elektrotechnik” im 
”microtronic — Innovations- 
zentrum der Mikroelektronik” 
dargestellt. Sie durchdringt in 
vielfältigen Anwendungen 
auch alle anderen Schwer- 
punkte der Hannover-Messe. 
Einzelaussteller,  themen- 
orientierte Ausstellungs- 
zentren und ein "microtronic- 
Forum” geben einen komplet- 
ten Überblick über das 
umfassende Spektrum der 
Bauteile, Bauelemente, Bau- 
gruppen und Entwick- 
lungssysteme, der Elektro- 
nik/Mikroelektronik sowie 
ihrer zahlreichen Einsatzmög- 
lichkeiten. Das zugrundelie- 
gende Drei-Säulen-Konzept 
ist speziell auf das Ziel aus- 
gerichtet, die Einstiegsbarrie- 
ren kleinerer und mittlerer 
Unternehmen zu überwinden 
umd mit der modernen Tech- 
nik neue Märkte zu erschlie- 
Ben. 

Die elektrotechnische Indu- 
strie ist Entwickler, Hersteller 
und in großem Maßstab auch 
Anwender der Mikroelektro- 
nik. Dementsprechend gehört 


Neue Messe-Ära für Elektronik und Elektrotechnik 


Acht Hallen der Hannover-Messe ’85 für die 
Elektroindustrie - Mikroelektronik 
durchdringt alle Hallen 


sie in allen acht Angebots- 
schwerpunkten des "Welt- 
marktes Elektronik und 
Elektrotechnik” zum techni- 
schen Standard. Die Han- 
nover-Messe ’85 präsentiert 
das aktuelle Programm der 
"Elektrischen Energieversor- 
gung, -umwandlung und 
-verteilung”, die vollständige 
”Meß-, Prüf-, Steuerungs- und 
Regeltechnik” sowie die "In- 


dustrielle Automatisierung- | 


stechnik”. Parallel dazu gilt 
das Angebot der "Nach- 
richtentechnik” weltweit als 
umfassendes Informations- 
forum dieses Technolo- 
giesektors; die fortschritt- 
lichen Bausteine der moder- 


Compube mi 


nen Kommunikationssysteme 
schließen z.B. die Licht- 
fasertechnik und die Satel- 
liten-Nachrichtentechnik ein. 
Weitere Schwerpunkte sind 
die Bereiche "Elektrische In- 
stallationsgeräte und -sy- 
Steme” und”Sicherheitstech- 
nik”. Auf keinem anderen 
Messeplatz wird ein umfas- 
senderes Angebot an moder- 
ner Installations-, Hausleit- 
und Sicherungstechnik spe- 
ziell dem Elektrohandwerk 
und -handel näher gebracht. 
Darüber hinaus wendet sich 
die Gesamt-Präsentation an 
jegliche Anwender von Instal- 
lationstechnik. Ebenso über- 


greifend spricht das neukon- 
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zipierte Programm ”Ferti- 
gungstechnik und Zubehör für 
Elektronik und Elektrotech- 
nik” die Industrie aber auch 
das Handwerk an. Die Maschi- 
nen und Einrichtungen tragen 
zur rationellen Be- und Verar- 
beitung sowie zur Serienferti- 
gung der unterschiedlichen 
Produkte bei. Zum Zu- 
behörangebot gehören eine 
umfangreiche Palette von 
Leerschränken und Gehäu- 
sen sowie Vorprodukte -und 
Bauteile für die Elektronik und 
Elektrotechnik. Außerdem 
sind hier die Firmen mit 
Elektrowärmeanlagen konzen- 
triert. 

Den Reigen des größten 
Marktes elektronischer und 
elektrischer Produkte be- 
schließt die ”Weltlichtschau 
Leuchten und Lampen”. Unter 
den wichtigsten internationa- 
len Ordermessen für Fach- 
handel, Einrichtungshäuser 
und Innenarchitekten gehört 
sie weltweit zur Nr. 1. Die 


Auszeichnung bezieht die 
technischen Leuchten und 
Lampen und nicht zuletzt das 
Zubehör dieser Branche mit 
ein, das hier komplett vorge- 
stellt wird. 

Zum ständig wachsenden Er- 
folg des "Weltmarktes Elek- 
tronik und Elektrotechnik” 
tragen unbestritten die in- 
tensiven Wechselbeziehun- 
gen im Verbund aller Fach- 


. messen der Hannover-Messe 


bei. Die Kontakte reichen vom 
(A)nlagenbau bis zur (Z)ulie- 
fermesse und führten 1984 
rund 450 000 (60%) von ins- 
gesamt 740 000 Besuchern 
der Hannover-Messe auf die 
Stände der internationalen 
Elektro-Industrie. 


Mittwoch, 17. - Mittwoch, 24. April 


(nee 


Preissenkung für Typenraddrucker 


Der Preis der Olympia ESW 
102 wurde bei iti-Datentech- 
nik um DM 1.000,- auf DM 
2.298,- inkl. MwSt. gesenkt. 
Dafür erhält man einen zuver- 
lässigen Typenraddrucker 
aus westdeutscher Fertigung 
mit 17  Zeichen/Sekunde 


V-24-Schnittstellenumschalter 


Unter der Bezeichnung 
DUOPER hat das Ing.-Büro 
Auffarth einen Umschalter für 
V-24-Schnittstellen neu in 
sein Produktionsprogramm 
aufgenommen. Das Gerät hat 
drei 25 pol. D-Stecker, an die 
der Computer und zwei Peri- 
pheriegeräte angeschlossen 
werden. Mit dem eingebauten 
Schalter wird zwischen den 
Peripheriegeräten umge- 
schaltet. Es entfällt damit das 
lästige Umstecken der Peri- 
pheriegeräte, wenn abwech- 
selnd eine Computerschnitt- 
stelle benutzt werden muß. 
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Schreibgeschwindigkeit, 

Druckwegoptimierung, DIN 
A3 Querformat, Farbbanden- 
de- und Papierendekennung. 
Alle Schnittstellen (Centro- 
nics, V.24, IEC-Bus) sind mit 
einem 4 KByte Puffer ausge- 
stattet. Gegen Aufpreis isteein 


eingebautes Interface zum 
Commodore C-64 lieferbar. 
Ohne Aufpreis ist die ESW 
102 mit den Zeichensätzen 
für Commodore, DEC, HP, 
IBM, Wang und anderen 
Rechnern von ITI ausstatt- 
bar. 


Das reichhaltige Zubehör wie 
Traktor, Einzelblattzuführung 
(Einschacht- und Doppel- 
schacht), Kabel, Typenräder 
und Farbbänder wird ebenso 
wie die Maschine selbst so- 
fot ab Lager Leonberg 


geliefert. 


BU X3731 WA X3731 Aa xX3731 WU X3131 


un 


Gruds in 
Space 


Nach”Blade of Blackpool” ein 
weiteres hervorragendes Ad- 
venture von Sirius. 

Der Spieler findet sich als pri- 
vater Händler in seinem 
Handelsraumschiff. 

Ziel des Adventure ist es; ei- 
ne Raumflotte mit Treibstoff 
zu versorgen. Diese sieht sich 
bedrohlichen Angriffen entge- 
gen und kann wegen Treib- 
stoffmangel nichts unterneh- 
men. 

Die Bezahlung für diese Auf- 
gabe ist gut, die Reise führt 


Unser Softwareversand bietet 
Ihnen zu wirklich einmalig 
günstigen Preisen jede Wo- 
che die neuesten Programme, 
auf Kassette an. 

Wenn Sie die hier aufge- 
führten Bedingungen beach- 
ten, können auch Sie von un- 
serem Angebot Gebrauch 
machen. 


Bestellungen Inland: 

Gegen Einsendung eines 
Schecks oder Vorauszahlung 
auf unser Konto bei der 
Raiffeisenbank Eschwege eG, 
Bankleitzahl 522 603 85 
Kto.-Nr. 245 8888 

senden wir Ihnen die ge- 
wünschten Programme 
schnellstmöglich zu. Geben 
Sie bitte unbedingt die ge- 


zunächst zum Planeten 
Saturn, wo die Gruds leben. 
Hier können einige nützliche 
Ausrüstungsgegenstände ge- 
funden werden, die auf dem 
Weg zum Ziel benötigt 
werden. . 
Gruds in Space ist ein hervor- 
ragendes Adventure mit tol- 
len Ton- und Grafikeffekten, 
das auch bei vorgegebener 
Lösung sehr lange zu 
spielen ist. 

(sr) 


naue Bezeichnung der Kas- _ 
sette (z.B. Compute mit 37/ 
84 C-64) und den Computer 


an. 


Bestellungen Ausland: 


\" Nur Vorauskasse, Schein 
\ Keine Schecks oder Über- 


„«®* 
u ah 


EXITS: 


BEGIN. TRANSNISSION CODENANE : 
POWERPLAY. THIS IS AN URGENT 
REQUEST TO THE PILOT OF THE VESSEL 
USAC :94U88 FROM USAC COMMAND ON 
EARTH. OUR BATTLESHIPS AT THE WAR 
FRONT NERR BARANOK HAVE EXHAUSTED 


MORTH 


HE FUEL, 
HERAOTROENDLIE: 1$ ONLY AVAILABLE 
ON: SATURN 


PRESS GREEN TO_CONTINUE. 


aus Compute mit 42/84 
VC-20 K14,- DM 
Jumpin Painter 
Kaboom 
Kniffel 
Light Pen 
Gold der Geister 
Commodore64_ KI14,-DM _ 
._ Grazy Car 
- Horseguard. 

Simons Neuplot 
RE Mensch ärgere Dich doch 
Ze” sr  Programm-Verwaltung 
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für den VG-20 + 16K 


Inbetriebnahme des Programms: 

Vor dem Eintippen und jedem Laden 
müssen der Zeichensatz und das Ma- 
schinenprogramm durch POKE 642,28: 
SYS 64818 geschützt werden. 


Spielablauf: 

Nach dem Starten des Programms er- 
scheint ein Titelbild, das für einige Zeit 
stehenbleibt. Währenddessen werden 
sowohl Zeichensatz als auch Maschinen- 
programm erstellt. Daraufhin ertönt eine 
Melodie und es erscheint das Auswahl- 
menü. Durch Drücken von fl wird das 
Spiel gestartet. 


96 
1 

11 

1E 

12 

14 

15 "OR DEM LADEH 

15 "E FÜKE 242,25 

1.6 '5 245102 

15 

13 "3% COPYRIGHT Er 

28 "Z5TEFAH REUSCH & 
21" el 22 8 
24! 

35 


13" :END 


Die Spielphasen: 

1) "Ubungsphase” 

2) In dieser Phase ist die Zeit sehr knapp 
bemessen, so daß es schwierig ist, allen 
Rostnagern (Ihren Feinden) aus dem 
Weg zu gehen. 

3) Hier steckt die Gefahr wieder in der 
knappen Zeit und einer großen Fallstange. 
4) In dieser Phase haben Sie zwar viel 
Zeit, aber die vielen Fallstangen. sind 
auch nicht einfach! 

5) Bietet etwas ”Erholung”, aber auch 
schwer genug! 

6) Hier müssen Sie sich von einem Auf- 


zug herauf- und herunterfahren lassen. 
(Besteigen des Aufzuges: Eingangstür 
betreten und den Joystick kurz nach un- 
ten drücken. Aussteigen: Knopf drük- 
ken). 

7) Eine einfachere Phase. 

8) Die letzte Phase sieht sehr leicht aus, 
aber die Zeit ist extrem knapp! 

Wenn Sie alle Phasen geschafft haben 
sollten, tritt ein Pfeil auf, der ab und zu 
einzelne Stücke des Gerüstes wieder 
entfärbt! 

Nachdem Sie aber alle Leben verloren 
haben, erscheint wieder das Menü. 


Ich konnte mein 
nich 


e Hathe - Aufgaben 


t machen, Herr lehrer, 


Hein Akku - Ladegerät braveht 28 Stunden ! 


158 IFSTTHEHFEIHT"T?LADEFEHLERTT" : EHRD 
ae IFFEER.£443 C2STHENFRINT"NIEITTE ERST SPEICHER 


121 FORI=STOS:READR@TSCHEST:OCSI=e-105de 


#5FERREH: 
12 20 DEFFNACA5=IHTERHDE 1ER DIMRCBI CSS. HLIOI.NELLEI. HAN 


FÜHEE 242.22: MSN 64 
+22, Di425:FESTORE 


125 IATA- 22.9. 22:-23:-1.21:-21.1.23 

127? FORI=1T018:H< I3=B:H$C I3="---------": :HEST 

123 FORI=ST042: RERDNZGETS.DUIDCHEHT 

13 sg a ‚N=\ re 

4 SERTISTEIETTE: S4=36577 MEISTE 

158 uses epleanials F2=37152:10=37154:Ml=4712:L1%=2 
1565 GOSUEEEAB: GOSUEFOBE: GOSUBFIRG: FORT=1T0528: NEAT 
17a U=8:H=1:50=8: Ds 

1:59 GOZUE3EBE 

125 GISUEI1EES 

zu0 R=. I=FEEKiS+Z2):IFI=320RIFLZFTHENFOKESSE Fer: AsA+l:R=S22:FORT=1TOSECHEXT: 
GOTI2I8 


255 POKESS 


x. :ON-EASSPGOTO7EG:A=. :7=259 
218 IFISEPTHENR=22 : POKESZ, A :9=A-1 :FORT=1T030 NEST: GOTO259 


220 IFFEEE.£S5+44=67ANDS+444681 THEHR=ZE: FORT=1 T059: HEKT:GOTOZEA 


229 Fü IKESZ. . s=240 


229 FÜKEID.. :RZ=FEERXP23:FOKEDD, 255:R1=PEERCP1>: 
2453 IFCRZAHNIZE>=, AHINZZIAHDPEERRS+LDF3SLTHENR=1:POKES 


IFCRIR 


255 IF£RIRHDIEI=. AHDSZ. AHDFEER.US-13331THENR=-1:FOKES. 85 
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Compute mi 


AHIZZ3=. THEHSES 
„65 


EIRAHDSS=, THEH4EE 
‚RIRHDS5=, THEN4SE 
: 5=34+R 0 =RHCHBS Ra=l3: GETTE: IFT$="K" THEHGOSUFSSRB:GOTOLFO:REM F4 


Z:C=PEEKSS+NSZ=PEEKSSH 


IE. Es1,-16 
Pr 1. 
FPEERCS+ +223= =564+1:K=K-1:POKES4. .  IFEZITHENZE 


ee JH H=SPANDE=11>GOTOESE: IFTM>. GOTOEE 


RXZX3ZAHDPEER N S+ZEh ehe THENReSHEE ‚FOR ‚E21. 12 GOTOZOA 


FEESOR Lt ZLIZAHDPEEK E+22)=GEORPEEH 5+44 3653 HANDSCH+ASZANDPEER 5444) C35ZTH 


ae 129: 6070308 
2,603: :R=. 


+1: een; C:POKES 
Rn: Er IHR: FORE 


>45 FORISOTDS:PÜKESZ.T 
f ö ag 
3: POKES-+H. 1: POKES, 844 LAND) BOSUBSOG: IFZSSAANDZCSTTHENG 


ssg IFEZAÜRESZITHENG= 
555 C=FEEEMLS+HTZ=FEER) 

DSUE238 

5E5 IFPEEKLSHZE 

va En 
: "SPS: IFRNDELSCUTHENGES E 

Te :TT-IHTETLSSEN: IFGE „ THEHG=G-1: IFG=. THEHFÜKEZS4: . 

4 FEIHT"FSR"TABEIL- -LENESTRECSEHISE ALCHFRERS-1SIEETMSLEHNTAEN „lm -LEHESTEEETMS2HTM 

4 RETUFH 

5a IFCFEEE 
oa E=E:FOkE 1 

ei en 


en 
„:GoTozaa 


PiSAHDESTHEHZER | 


-E# 118.8 E=E+AHLDE 2 Sul 


+ EIEmSTEEH 


;FOKE. 


a] 
‚1: 


FÜKEEH-H. IAHDT 


ER] A #:50T0OLFE 
FÜRI=4ETOSSTEF-Z FÜRE 
RETUFRH 

FÜRT= -DTUAeS STEFE:FOKEE 


5367, 1: T=lOGca) HEAT 


a u et 
ze Dex] 


357, 1: TeLOGon > HEST 


u 
a zn 


7 
ut 


\ 


‚ J:HE#T:FÜRJ=12370254 POKES2, T’NEXT!FORESZ. 8 


vo 
zit 


Kr 
1! 


P=h DR HEDIZ KEepy: ScP+N): T=25g: TT=TT+5 
FOKESZ,T:FÜKEF 21: POKEP+N, C1:P=P+22: IFP>UHSOSTHENPOKESZ 8: RETURN 
Z1=PEEKEP) CI=PEEKEP+ND :FÜKEP, 69: POKEP+H. 1 °POKES+N, CTIANDTIFZISS1THENZI=SR: 


45335TEP4 HI=PEEK( +28: WISPEEKEIAS) 
WIPCETHENIES 


FOKEI: 9: FOKES-1.32: POKES Ss POKES+H. 1:FOKES+. SE ZeRE 
FÜRI=1EAT0254FOKES4. D’HERT:FOKES4: 8 

Sl=3C+H32: G0TO220 

REM  EILDSCHIEME 

REM "I"=SHIFT E 

REM "-"=SHIFT C 

GOSUEFS 
FOKE3ESETS. LI+FHECEG EEE POKE“ LEE FHACLEDHZI +18 FÜ KEZEZEF. 205:503UE3158:FOKEZ 


ZI 


ÖHHGÖELEILEE. 18 
FORT =H+434TOkl+ 


WIRKTE EN) 


mer ij m Anne 
Dim 


Lil, 
Zul 
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358 FEINT"S4 SC: — ZEITi“ IS" 

3) IFLA>OTHENFORT= LTOL= :FOREH+I-1.654:NEAT 

g70 »=4652:FORI=1TOLENEAFP FE POKER, 2+FHACES FORES +1. FHACZO 

2) FOREN+2, YALCAEIHECASSMIDSCAF. 4) POKEH+3. VALSASISASSMIDSCHE. 45: %4=#&+r4 HEART 


RETUFH 

FEINT' IM we" SPCH153 "3: FOKER.1S:FRINT"M trtrPrtrrrrrrr rt" 

FEIHT" 1":FRINT" 1":FRINT" I trrrrrrrrt" 

FÜRI=1TOZ:FRINT" I SPCESS""SHERTSPRINT"PRIPRTSPCCSIH" Pr"; 
„FRIMT! "SPEER" "SPRINT" D"SPCKLES"RK "SS FÜKER,1S:PRINT" I" PRINT" 1"SPC<A 


La Peg LO 


3 PRINT" | Ki x ":POKER1S:PRINT"HRRT"SSPRINT® 1" 

5a PRINT I PPPPEEETRGPRINT® | ISPRINT® I NEPRINTO AMT 
FORI=1T02:PRINT" I"SPCC1E3" 1" :MEHT 

5214459: 0=7:K=194: TT=0:A$="19, 15" 

RETURN 

FÜKEFS5:PRINT"IIM X"SPCC1EI "X" :POKEF 15: PRINT"M rer" 
FORI=1T03:PRINTSPCK19>" 1": NEATSPRINT" PrrtttR ort oRrrtRR" 
FORI=1TO2:FRINT" 1"SPCK7J" 1 "SPCE8)" 1 ":NEKT 

1239 PRINT" TPITSPOCEH"ITSPCCEI" FIRE SPRINT" wo 1 re 

1248 FRINTSPCESI ER 1 PM PRINTSPEEFI RETTEN SPRINT" 6"; POKEF.15 

1259 FRINTSPECPI""SPCGSI"M." POKER,SSPRINTSPCCLBD" "SPRINT" Trrrt rt Mrtt 


PKerkmerkkesgkrllikereHmrir ih 


f. 
D 


ynnremrugenm werfen 


a u Bun Be De DR dB 29 


1259 FEINTSZPCE1OS"T"SFRINTESPCKLOH" "SPRINT" tIrP"SPCESI" PT SRELEH" Ir" 
1270 FORI=1TOE: PRINT" ı"S SPEKFan "5 FEESS" "CHEAT 
1229 Sel+4s2:0=e7 Kell TT=P5Ar="18,02:03, 15:19, 19 BE 
1222 FETURH 

aa FRINT"TIM"SFCRDE RE POKER,A1S:FRINT"N trrttTr rt" 
FORI=SITOZ:FRIHT" I = I": HER T:FRIMT" | = IE TITTEN _, 
FORI=S1TO2:PRINT" I —"3PEELZD"T"CHERT:FREIHT" I =” TIITTTTT In 
FREIHT" I e SPC :POKEF ‚15: FEIHT" I u 15; 
43 FEINT" I - fırr rrrtttmtmFORI=S1TO2:FRINT" | ":HEAT 
a9 FREIHT" I - +rrirt":FRIMT" I "SPEESH" SPCGEI "N POREF 15 
FREIHT" I "SPECSP" "SPRINT" I TELTITTET , TTERT® 
PRINT"RX"; :POKEF 15:PRINT"I"SPEELPI EST FOKER,1S:FEINT" O1" 
Selr4gigsit! ‚kesz: TT=93:As="03.82:15,85: 11,08: 17, 11:12, 191910" 
RETUFRH 
Ja FRIMT" IN SPEER" PÜKEF. 12: FEINT rer": 

a FORI=1TO8S: PRINT" | "HEART 
a FRIHT" — I - trrr tt trr";:PRINT" — | ="ZPCE123 5: FÜKEF» 15: FREINT"#": 
1424 POKEF. L2:FRIHT"="!FRINT" "1 SPC IZEEPRINTITTTTT TI trier © 
1443 FORISLTOE:FREINT" = M"SPCKISHt-": NEXT: PRINT" = rt TITTITT 
1450 PRINT" Al"; :FOKEFSLSSFRINT" 1 al"; :FOREFSL2:FREIHT" 1"SPEREH"-" 
1429 FRIHT" ISPCCFI"  "SPCECEI"-"SPRINT" TRITT ttrrr trtr tr"; 


1470 FORI=1TO2:PRINT" -"SPCÄ1E>"| —":HEXT 

1489 S=44+473:0=11:K=199: TT=17@:At="17,09:18,12:09, 15:17, 18: 

1434 RETURN : . 

1599 POKEF. 15: PRINT"IIMSPCK213"0" PRINT" TIItT" SPRINT"  I"SPCCAA"TTIN"; 

1518 PRINT"  I"SPECHH" tr? PRINT" Wo tr -H:PRINTT Wo 1 

| il . 
1520 PRINT" I 1 "SPRINT" t trete PRINT om m 
1539 FOKEF-1S:PRINT"  MMSPRINT" dr trrtrrttet PRINT" m or "5: POKER 
‚15 

1548 PRINT" "SPCKEI" It" SPRINT" M"SPCCBI" "SPRINT" arrett_ tert" 

1559 PRINT" T"SPCLSI"Ertt" PRINTUSTSPCCLEIE" SPRINT" WI" SPRINT® WM tritt 
rt“ 


1569 PRINT"  I"SPCKLFI""SSPOKER,ISSPRINT" 1" 

1578 S=ll+483:0=21:K=182:TT=105:A$="03,02:19,03:14,04:10.09:16, 11:14, 18°" 

1584 RETURN RR: 

1E90 FRINT'IIE  @"SPCciS>"@":POKEF,A1:FRINT"M HIIPtISPCCBH" Prrtt" 

1612 FÜRI=1TO2:FRINT" 1"SPCC4)" 1 "SPCCAP"I":NEXTSPRINT" INSPCKaa"trrrIettrTT" 
1522 FORI=1TOZ:PRINT" 1"SPECSI"-"SPCC7I"-":NEXTSPRINT" tr trr MI "SPCKSP;SROKEF, 


12a FRINT"=":PRINTSPELFSU-TSRCHFE NT PRINTSPEEFI RR TrTT 
1242 FEINT"TEEETSPEELSP" N" SFRIHMT" “r"SPci13>"#1" PRINT" 5-";:FÜKEF,11 


1558 PRINT" WISPCCH)"E  I"SPRINTSPECEINSPCELLI" PTR" SPRINT" trr tritt 
ER u" n 

1659 PRINT" 1"SPCCLSI"RT" SPRINT" ITSPECLH" WR PM SPRINT" I TMSPCE1BP" 

1578 PRINT" 1"SPCC1SP" "LES" PTR. SEO "m" 

1584 FRINTERTRUIE" SFC CLEILE" N LEE" NE 


35 E=51:FÜRI= M+L21TOW+4SLSTEP11B: FOKEI+H,2:FOFEI.E:'E= E- 1:HEXT:FOKEU+451.3 & 
1539 5=4+483:G=21:K=99: TT=118:A$="04,03:19,93:04,09° 13,11:01.18:28,.18:06, 19: 
1225 RETURH a FRE 
ira FRIHT"TIER 0" FOKER,L2:PRIHT"MI tr": PRINT" I"SPECEI" TR" FRINT"I"SPOC10) 
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1718 PRINT"I TIUSPCEIAH" TI" SPRINT"I  -"SPCCHLD"I TUSPRINT"I  -"SPC11D"1" 
1728 FRINT"|  trerrtttttttt" PRINT" SPRINT"I":PRINT"I 0 M"SPOCI2)"E" 

1739 PRINT"I  ter":PRINT"I 19° WSPCLIBI" TU:PRINT"ITIIP We trtt 10" 
1748 PRINT" I"SPECSINTISPCCEI" WU SPRINT"I MW MSPRINT" SFC" 


758 FRINT"I"YSPEEFItT OR" SPRINT" I"SPECI" N "SPCC7I" ES POKEF,12:PRINT" Tr" 
"Ei FRIMT"I"SPCET ya "SFCELE5""SFORISU+STTOU+4S3STEFZZ 

"ra FÜREI+H.LE: FÜKEI „Sr HEMT 

29 Sell+472:0=10:K=76: TT=39:A$="03,83:12.04:15,09:04,05:14, 14104, 15:99, 13:19,19,ı 


a 
ZN“ 


"39 FETLFH 
255 Een. w"SPl ar 15:FREINT"M trrr rt TEE T 
ala ‚FRINT" =":PRIHT" T | =WEPRINT. Tr — TER 


mm 
DO | 


a PRINT" I =. =" :PRINT" 1"SPCGE)"- ei 

3 PRINT" A rt Amt MM SPRINTSPECEES" |" :PRINTSPCC2O)"" 

a PRINT"t TII"SPCiHH" tt MIR" SPRINTSPCCLZI" T'SPCC7)"E" :PRINTSPCCLBI" T" 
a FRINT" tt? 7 ttt Trt":PRINTSPEGEI" "SPRINT" 4" 

E98 FRINT" PIUSPCCALS"FITTTTT" SPRINT" I 8-";:POKEF,15:PRINTSPCCI3I" 1" 
7a PRINT" I"SPCKLSI"N" 


a a 


20 Seheg47z:Geld:K=d2: TT=100: A$="03.03:09,03:13,02:03,12:62,159:15.15:19.19:" 
74 FETUFH 
>33 Da=Da+l:H=l:U=ll+. 025 
ala FEIHT"BM kaiatettetaietei " U FREIMT" + SERAWOT Br-":FRINT" a Ze Zu Zu zu Ze zu u 


zer 


FEIHT"Men SIE HABEN ALLE FHA- M SEN GEMEISTERT II" 
FEIHT"MAM FUER DIE HAECHSEN M ©SCHMEREREH) FREUNDEN M BEKOMMEN SIE:":50=3C 


Be Sag BOHLSFUHETE"  IFLAZSTHEHLE=SLA+L PRINT" "1 EATRALERBEN" 
SOSUELFEN: FOET=SITOZOAE: HEATIGOSUETSE:GOTO11EO 

4: FÜRI=ITOI+28:PORES2. I: Pi 2. I:HEST:HEAT 

EF-1:FORT=ITOI+28: POKES?. JFÜRESE. I’HEAT:HEAT 

EEEETUFRH 

E12: FOKRES1.E: Fi 

UEFA GOTLLFE 

:FOREW. I:POKE 

9 


mm mm 
img tr 
Dh 


LEESZ.E:FÜKRERZ.G 


52, DORLZEIFORES. EHE D’4AHDL> CC HERT 
:H=H+1:G0T019%4 
POKEr ‚Runc1»Kiot ee u 2 die de % ze * ie % EN 
FREIHT"YRBERAMO ee a > % “oo #* ." 


"a FRIHT"ESRee en I RETUFH 
ga FEM TITELBILD 
a FOKEZGSTF. IS FOEKEZESEH. 1SE 
FREIHT" ale an 
FREIHT" Er a 4 u 
FEIHT" r | 
3 FEIHT" yaı _3M- 
1 
| 


FREIHT" a8. 
FRIHT" = m 
FRIHT" rt 8 
a FRIHT" gm. 2 ? n 
a FREIHT" “ m u 7 En Bo 
a FRIHT" MeRi EREEIEEERENE: 
FRIHT" I vu . 
FEIHT" rE TEN: 
FREIHT" ra paar ee DE 
EREUT® PECFa" 
‚15: FOR =1.225:FORT=1TO1820: NEST 
‚225: FORT=1TO1280: HET 
za 3: FORT= 1T01008: NE#T 
TO2:FORI=254T01255TER-.5:FÜKES1HI: I: HE» T:FÜRES1+1.8:NEST:RETURN 
{ E3E2659 ZH PRINT "TIER 

3 FEIHT" #9 JUMFIHG FRINTER Ab" 

a FRIHT" Sense 
FEINT"MeISIN IH DIESEM SFIEL IST MES IHRE AUFGABE, MIT 0 DEM “O-FEINIGEN} 

A FEIHT"S SPEIHGER im EIN FL- 3 TES GERUEST NEU ZU 3 STREICHEN. " 

3 GOSUEZSGE: FÜKEFESTEF. 
Sa FRINT"MDAEU MUSS DER SFRINGERMIT SEINEH FLATTFUES- MSEH VEEER DAS GESAMTE 


PR EU EUR TU LH ER 5 UN TUN EL UN ER LEN IE EN I LANE U BE HN Bu N ER UNE SE UNE m ge 


[erarwrErur 


zz 


zZ 


en 
Da) 


AIRKAUREALAHEIRT 


"a FRINT"MSERUEST LAUFEN. ":PRINT"MWABER ACHTUNG 111" 

4 FRINT"MBEINIGE ROSTNAGER MCmaswga" PRINT"NHABEN WAS DAGEGEN !" :GOSUB3S00 
ag PRINT"IBHENN SICH IHR SPRINGERBEINEN VON EINIGEN HER-MUMLIEGENDEN DINGEN“ 
4 FRINT"SGRAESCHT, 15T ER FÜER MKURZE ZEIT IMSTANDE. DEN WIDERLICHEN ROST- 
4 PRINT"SHAGERN DEN GARAUS ZU MMACHEN. " 
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33220 FRINT"NWES FOLGT EIHE FÜUHKTE- RLISTE:":GO2UE3SEO 
2328 POKE3E379, 14: FRINT'TM at #3 wen = 1 FUHNET" 
=242 PRINHT"M Eis ne 15 PUHKTE" 


=252 FRIHT'"M 9; n= 2a PUNKTE" 

s3E8 PRIHT"M ne 20 PUHKTE" 

2378 PÜKEF.13:FEIHT"M 9 ne 4a FUHETE" 
2350 FRINT'"M 5- ne 58 FUHKTE" 

2394 PRINT"M '% M= 58 FUNKTE" 

3409 FRINT'MN nd m ne 538 PUHETE" 


3509 PRINT" SIRISIRISISIKIRISTKTEISISISISTEINIRTETETEIKTEEGE -— BITTE EIHE TASTE 3" 

ssic IFFEERK1FTPISEAAHNDPEER E53 =BAHDLFEER «FISAHDSEI=3ZTHENSS1H 
>523 POKES3, 228: FORT=1T029: NEXT: FÜKES3. 8: RETURH 

3e0@ GOSUEZE0: FOKE3E35I. 2UI:L3=L1% 

=5128 FEINT'"Iemed Fili = SPIELSTART" 

2520 FRINT'"IMA Fi = AHLEITUNG” 


Se3a FRINT'NOd  FS = HIGHSCORE" | 
26458 FPRIHT'"MM4 Fri = LEBEN: S"LH+H 
zE42 FRINT'MMd Fi = LADE HIGH." 


2245 FEIMT'MAd  Fali = SPIELENDE":FOKE1FS.0 
3Esn GETAF: IFA$="W"'ÜRKFEEREPISAHDSZISÖTHEHNRETURN:REM Fi 
3e23 IFAF="@" THENHGOSUB328A:GOTO3S1S:REM F3 
2272 IFA&="W" THEHGOEUFIERA:GOTOSSIE:REM FS 
26240 IFAF="B" THEHL#=L#+1AHD3: PRINT" Sleleinteinleleietegele]" SPC LISLHHLILIASLAREM FF 
22553 IFA$="&" THENGOSUES199:60TO3518: REM FZ2 
3627 IFA&="K" THENGOSLUESOOS: FOKRE3EST?3: 27: POKE3ESES. 132: PRIHT"TI"SSEHD:REM F4 
2292 GOTO2EI9 
4552 REM HIGHSCHEE 
4219 PORE3ES?I.S 
4925 PEINMT"I4 HIGHSCORETABELLE" 
4238 FEIHT'E HER" 
4549 FORI=1T018:PRIHT:PRINTSPCC3-LENESTRSCIDI TI. 0"; 
4358 FRIHTHELIDTARLZI-LEHSTRECHS TH 3 5 >" HC ID5 
4268 HEXT:GOTO3518 
=293 REM EINTRAGEH 
318 GOSUE?SE:PFRINT"T':IFSCZ=HÜ1SHTHENHTFE 
Sscza FORE2E273,19:FRINT"TIENd SIE HABEN EIHEH DER M YORDEREH FLAETZE ER- M REIC- 
pn ini 
>923 FREIMT'" Mel“ TEAGEH SIE HUHN BITTE M IHREH HAMEH EIM: Man" :GOSUErTEO 
sada FREIHT'M So nn La He" POKEL33.0 
Seasa FORT=1TOSSTERS 
sasg PRIHT"TII"SPOCCE>HES:POKEF, TD:FRIHT"-"G0SUESS508 
Sser7a IFTFSCHREL285:THENFRINT"TI:GOTOSA4E 
= IFTF=CHREL 133: THENSZEH 
>9332 IFL>3THEHNHSZSG 
=139 HE=HF+TE:L=LENCHEN:NEATI:GOTOSASEA 
s234 FÜRI=1TO18: IFECHHETSTHEHGOSUES3SB: I=10 
seld HE#ATI:RETUFRH 
3333 FÜRI=1GTOISTER-1: HEIIEHEI-13: H&,Ja=HFC II: NERAT 
5518 HETN=EC:HELI3=HE RETURN 
Sag FORT=1TOZS:GETTE: IFTESH" A"AHDTFL=S" ZI ORTFSCHRELLSIORTFSCHRELIOHORTE=S" "THEHT: 
239 
Ssslg HE#TT:RETUFRH 
223 REM COPYRIGHT 
56515 PÜEE3E36?. 132: FOKE3ESTF. 18: FRINTCHRFCSICHRELLIEHRHDG-TIY 
8328 FRINT"TIR"SPCCIN WBAFFFFFFFFFSSF" 
E24 PRIHTSPCKII"NSS.R. SOFTWARERZM" 
5348 PRIHT" MelSIeEd FRAESEHTIERT:" 
ses FEIHTTBERI. 0 
Eee FRINT" SIUMFIHG FAINTER" 
2973 FRIHNT"MMERSA " 
scse FRINT"S COPYRIGHT JULI 1924" 
2522 FRINHT"M EB7 STEFAH REUSCH" 5 :RETUFRH 
2393 EHD 
039 REM SPIELE MUSIE 
rails POEEW, FEEKCVSRAHDZIGGRLS 
raza FORI=STO42: FOKES3, HAST: FOKESZUHAKTD 
7028 IFH=3THENFORT=1 TODE T3#4 GOSUEZA48 : HEAT !GOTOFOSE 
7843 FORT=1T0OD%13#350: NEST 
rasa POKES3,8:POKESE. B:FORT=1T038: NEXT :HEHT 
7328 RETUFRH 
gaaa REM SAWE HIGH. 
eala FREINHT"IAN “RECORD” & “PLA” 
5320 FRIHT"M DRUECKEN. " 
5934 WAIT37151:54,54:PRINT"IM OE."SOPEHL.-1, 1, "HL.SC." 
5342 FORI=1T015:PRINT#1,HCI3 :PRINT#1.H&CII:NERT 


10. Oktober '84 Compute mik 


12 


LLOSE1:RETUFRH 
REM LOAD HIGH. 
FEINT" IA "PLArT“ DEUECKEN." ß 
HAITZF1S1.84.64:FRINT" OK." :OPEN1:1,8. "HL.20."PRINT"SSEFUNDEN. " 
FORT=1TO1E: INFUT#1.HEI2SIHFUT#HLHFETOCHERT 
ELOZE1:RETUÜRH 
REM SFEICHERIHIT 
FORT=S126T09E31:RERADA:FOKEI:A:HEHT 
FERDA: IFALETHEHSBER 
a FORIT=ETO7:RERADE:FORESLZE+T+RFS. EB NEAT 
[S} BOTOSE3 As 
15) 
[2] READA: IFA=-1THEN3129 
a FORIT=ETO7:RERADL: EL: IFCARHNDE>THEHL=SLI/ER=R/Z 
a FORI=3T02:C=S122HAE24 TE32+ I FOKER, L’FORECH+HE CRe'258- IHTÜRFZSE I DH2ZSE 
IS) 
2) 
5) 
I 
A 


L=INT@L4I SR=INTERF43 NEXT 
HE=T:GOTO3A7E 


2 Feb: FORIT=GTO42STERE:FOKRE4ERS+T. ARNDZSS: FORE4SB3+ LT, A255: A=A+t22: NEXT 
FORI=4E24T04 :EERDA:FOKEI.A:HEST 

FORT=4532T04E22 FOREI; „:HEAT 

FETUFH 

EEM OO MUSZIE 


IATA135.1.297 »1:.213:1.2259:. 2: 229.2. 222. 1:219..2:.219,1.9.219.1.5.2 


ne: 1. 


HL pre. 
— - 
15 


zZ 
ET LTE 


a 


7, 
at 


een 


ih 


Bar ta 


3540 DATHaGT ,215; i 
1aaaa REM HEUE SEICHEN \ 
5318 DATAAEE. LEE, 110.118, 035,092, 02, ale ae, 10,125, 10. 102, 102.00 


U zz 008 En. DATE nn 

ZI 
— 
Er 
je 
Zı 
— 
II: 
part 
fu 
E 
fer 
1 
r 
part 
DR 
f 
r 
fü 
5 
Du 
(Dt 
Dar 

IT 
DR 
ı 
pr 
er 
z 
pn 
- 
Da 
Ayı 
De 
Kr 
X 
2 
Ay 
{I 
r- 
25 
158 
zZ 
ıTı 
2 


e_ 
a 


ee Ze me lm fl u te für le u m ıT 


we 


a il TE ed nd 


I “= 


Do 
je] 
IT 
—_ 
IT 
N 
® 
r 
be 
zz 
T 
Zı 
De] 
DX} 
Gi 


15,959.612,012, 212,012. 109.056, 565. 162.105, 120.112 


G 


ZI“ 


fr 
ouGegr-maonmmen 


EU ERNEUERT ER ETTE 


ld 


; =. 
DE Be Nr Eee 
ee 
DR} 

= 

Ze 


DATA1EZ, 152. 102.059. 006, 192, 122,152, 102. 102. 066,024. 050. 039.0393,07 


Dos 


>5.524,055. 102. 102. 099.192, 12.182.050, 024,02 


ZZ 
Dr} 


Do 


= 


DATASZ24. 200.018, 048, 127: 127,048, 816. 009, 990. 009. Dia. 059. 009. Du. Du 


= 


nn. 
Da 


3 IATAG24. 824. 055. 059.824. 059,182, 182: 102. 059.029. 069. 505,608. 122,15 


Do 65 
ZI a en IT 

Zi 
zZ 
—_ 
zZ 
zu 
Dorf 
ıTı 
x 

[ui 
- 
1.3 
Du 
nr 

Fa 
Dex 

Di , 2 Pe zZ 
21 - ER 3 Die} FOR > - > 

Dr 
Ay 
ıT; 
Eu 

pers 
fe 
Tı 
Dex 
[ext 
cı 
ax 
ir 
Du} 
- 

De 
2 
Dex} 
De 
Jı 
Der 
El 
fa 
Ü 

= 

ber 
fi 
[x 

cz 
fa 
Ba 

Z 
Ti 
© 
© 
pe] 
Ba 
© 


- (nr 
je] 
I: 
_ 
U 
Dar 
Tr 
CS 
“ 
m 
G 
n.ı 
ex 
ıTı 
u 
a 
N 
T 
» 
ız 
ja) 
per 
Dr 
1 
Dr 
Tı 
Lt 
zZ 
Z 
DR} 
Lux} 
IN 
a 
DR 
per 
T.+ 
151 
nr. 
Pu 
ıZ 
zu 
Dr} 
jun) 
[27 
G 
oo 
Gi 
De} 
ca 
Dur} 
SG 
G 
[un] 


| 
eu] 
par! 
ie € 
m 
J 
DR 
zu 
Fa 
DR 


5,024.612: 800, 845, 824, 812,812. 812.024. 045, 069.090. 102.06 


Do as 
(ET ER 

Zi 

SE 

—_ 

be uf 


— m 


1 


1! 


en 
N 


- (* 

[x] 
X 
Zr 


DATASAS, 868, 102,805. 812.848, 896, 128. 000, ded, 102. 006. 023, 6006.102,56 


re pßemm le Ze GG fir Hı 
a R m: 


ur 
"p 
DER DE vercae CR HL na Son un Er Non BE N u nor ze Ku Ber OR 


Zi 
FR oe DR ze Dar 
zZ Gm Ra 


Dior 5 


DATAa2E. 192. 127.996, 0065. 009, 1265.035, 124. 06. Da6, 192, 06, 080. 060. 10 
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IATRSZ4. 842,095. 005, 069,102. 110.119, 102 e2.00,00.02.120,056,04 


2,129,18 


123.925, 10 


DATAIZE:1285. 110. 102. 102, 009, 050,102, 102, 102. 102. 102.059. 005.124.182. 102,12 
DATABFS. 835.009, 056, 102: 102,192, 102. 060. 014.000. 124,192,102.124.120.102,18 


DATABER. 102. 025. 028,05, LE, 058, ed, ed, zz. ed, 4,000, 1, 1 


3.197.12 


3.000.832 


2,299, 18 


a, a, re, 1 rd ed, a, Da, 008, a. O5. 05, 0, 4,2, a 


2.836,18 
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10240 DATR102.869, 000, 126. 162.012, 024, 024,024, 024,000, 060. 102. 102, 068, 102, 102. 09 
16258 DATADED. 102. 102,062. 006. 102,068, 000. 006. 000, 024,000. 000, 024.000. 008. 000, 00 
[4 
10260 DATAOOO. 000,024.624. 048,014, 024.048, 096,049. 024, 014,000, 089,000, 126. 008, 12 
10270 DATAGAG. 080. 112. 024.012, 006, 012,024, 112,009, 059. 102. 006,012. 024, 000. 024,08 
18599 REN------------ ke fr 
18518 DATA32.255,15,248, 15.248, 15,248, 15 ae Belt 
18520 DATA31,253, 259, 253,255, 255. 255.255,205 11000 All an 126 
Dee nen 11010 DATA144. 128. 
1595209 DATA24. 126,219. 255, 126. 36:66. 35:23 1125 DATA1IS,1E >43, = 
18548 DATASS. 126,219, 255, 126. 36,231,9,8 a. nn 
Zar: ı u. 11030 DATA128. 128. 
19553 DATAES.EI: 185,55,65,65 ‚193,.6853.53 ı1laga DSTA120. 1285.20 
105€9 DATAGT. 48.49.49. 40, 40.49.49, 40 a ‚25,1 
10578 DATA9S, 259. 255,63,63: 15, 19,3,3 ne aan Beaakes. ce e 
10588 DATA105,259,.259,252.202,240,249,198,,192 H1UeG DATNIS2.B AD 90, ESS. Em. 05: 
a En 11070 DHTRI7E,68. 90, 289, 285,6. 60.183,23 
105375 TATA21.69.1602.251,253, 253: 253, 126.50 zum - = 2 
13255 DATASZ; Ed, PE2,255, Pt 11050 DATALTE,8.60, 23,255.,299.62.60. 221 
10610 DATAS2,9. 28.84, 32,32, 32.32.32 REN 
19628 DATA24. 136.196. 142, 137.142. 195,248, 112 12990 REM MASCH.-PRO. 
19539 DATR3S. 40, 68,49. 16,49, 62,68, 62 
10649 DATABE.62.127,9,3:3,8,49. 16 
19659 DATAGS. 15,55. 16: 16. 15,56: 124,25 
10629 DATAEI. 60, 24.24.24,90,126,59.24 
19578 DATATE.8.8.6:6,8,6.6,6 
19639 DATA77. 98.96, 96. 96, 96,96. 96,96 
10699 DATA73,8,7,5,5.5.4,7,6 
10700 DATA72.0,255,218,215,211.97.255,8 
19719 DATASB. 9. 224.32.36:98. 96.224,96 
3 DATALSS. 258. 18. 169, 195.8. 18,193, 251,185, 1,18, 199, 292. 169,249, 74,74, 74,241 


1.144.282. 230, 252,95 


DATAL=2. 25 


=,122.247, 288.2: 76 


12055 DATF1IB: 243 

12955 DATA32: FE. 12. 150. 22: 177,251: 201,22,209:6: 169: 
33,249 | 

12573 DATA22. 765.19. 168: 23, 177,251,201.22: 208,6. 153 
‚45.18 

12523 DATR1ES.243.157.485.18:32: 78,18, 159, 249. 41:7. 
3,10. 18 RS ie Be 
12898 DATA1G.24.181,28,9, 123,169.0. 145,251, 200.24. 
22,19 


2108 DATR2S2, 160. 9.185, 247.145.251: 209,145 


121 18 ‚DATA1S,3 


WERSIBOAR 


FÜR COMMODORE C 64/5X 64 


Das WERSIBOARD-SYSTEM MUSIC 64 besteht aus einem Orgel-Manual im Commodore 
Design, einem Interface-Modul und zugehöriger Software. Gemeinsam mit dem 
Commodore VC 64 entsteht ein Musikinstrument mit bemerkenswerten Fähigkeiten. 


Komplett-Paket bestehend aus: 


KEYBOARD SOFTWARE 

— 49 Tasten, 4 Oktaven C- c — auf 5%'' Diskette 

— PROFIFORMAT — Programm MONO 64 — 

— Gehäuse aus stoßfestem monophoner Synthesizer 
Kunststoff im — Programm POLY 64 — 
Commodore-Design polyphones Keyboard 

— Interface-Modul — Klangfarben direkt am PC 
mit Verbindungskabel, veränderbar 
anschlußfertig 


OWERSI] Orgel- und Piano-Bausätze - Industriestraße - 540] Halsenbach 
Telefon (06747) 7131 : Telex 42323 


BESTELL-COUPON abtrennen und senden an: WERSI electronic, Industriestraße, 540} Halsenbach, Telefon 06747/7131 
miele bestelle ich/wir zu Ihren Allgemeinen Verkaufs, Lieferungs-, Zahlungs und Servicebedingungen zur sofortigen 

tück WERSIBOARD MUSIC 64 EinzelpreisDM 48. +GesamtpreisD’M____ _ 
Personal Be Gonpiter‘ Music ” zuzüglich Versandselbstkosten 


Zahlung erfolgt: D Dee eetnehrne) D per beigefügtem Scheck OD per Vorauskasse 
ınden Sie mir vor Lieferung die Rechnung D Überweisungsbeleg ist beigefügt 


urmaın 


Absender: 


21E 
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HIT IH 


[AU IE - u. Al IMEENEE Ay zu Im 
BURA-ÖZ JENE IENR_ JEAN 


45. esl Aras1sP 145 ‚2Sl» 155, 245, r 


‚1.133, 243.220. 249.124:529, 19. 
2.133,242, 192.249, 163.243, 197 
2.122.20.169.242.24:181:254:1 
25,1,145.251:189.252.24,185.1 


202.42.2.76:107 


PERSONAL 
COMPUTER 


BINREN u Bu IH MUSIC 


EINFÜHRUNGSPREIS 


DM 495, = 


inkl. MWSt./zuzgl. 
Versandselbstkosten 


Noch heute bestellen! 
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Kaboom „ ür den VG-20 + 3K 


Dieses tolle Grafikspiel entstand in Anlehnung an das Das Spiel ist maschinenunterstützt und wird ganz 
gleichnamige bekannte Arcade-Spiel und hat das Vor- schön schnell. 

bild sehr gut nachgeahmt. Die Grafik und der Sound sind sehr gut gelungen. 
Ihre Aufgabe ist es, als Gefängniswärter, Bomben mit Eine genaue Bedienungsanleitung ist im Programm 
einem Wassereimer aufzufangen, die ein Sträfling enthalten. 

von der Gefängnismauer wirft. 


ESTEFFH REUISCHE 
"SMDEHLENEAMP 22% 
BEIDE EORDESHOLN® 

152 RD 


STEUERUNG ERFOLGT MIT DEM JOYSTICK HACH LIHES UHD RECHTE! 
FOKES1.@:FOKESZ. 285: PÜKESS, 3: PÜKESS, 23: FOREES1. 287: POKEZSZ, 23: CLRGOSUEZONNG 
FORI=STE31TOFET3:FÜOKEI. 8: NEST 

READA: IFA=-LTHEHSE 

a E:HEAT:GOTOZE 
L=32:H=30720:M=223:E=253:5=1021: W328 Wenig ler 
FÜRI=MTOM+144:RERDA:FÜREI: RA: HEAT : RERDA 

FORIT=7432107593: RERADA:FOKEI.ACHERT:READA 

GOSUFZSER een 


za 


a ON A A IN a a 
ZT k 


[als] 3: GOSUE LEE 1: FOKE3265853, 259: POKESEETFP. SS FRINT"N 
18: la=E! "SOSUBSORD: M=.97 

reis TUT 7aB: FOREI+H,2:FÜKEI,P°NERST 

2 123534655 032437: POKET. ©: NEST 

45 FOKES. 3: PÜKES+1,9:POKES+Z,3:PÜREZS4,6 
za SY5M: IFRNDELISOTHENGOSUES1S 


255 FORT=. TOU:NERAT: 5750 

>10 K=PEEKCSIHH: IFFEEKCHISDBANDFEER CH+ LI SHEANDPEER CH+E>SHEANDFEERE)=. THEN2OG 
228 IFFEEKCE?THEN3SS 

239 POKEW+4,3:FOKEN+S, 252 

232 SC=SC+1:85%=5%+1: IFPEEKCH+1)=STHENSCSSCH :S%=3%+1:FOKEV+S, 251 

235 IFSY>43THENSRSSR-58: IFMASSTHENMAZSNS+LSGOSLUESAG 

249 Dei, 393: G0SUES20R: FORI=KTOX+2: IFFEEKCI-22>=7THEHFOKEI-ZE. 

258 NEAT:POKEV+3,9:G0T0200 

Sao »=7724+PEEKi10233: POKEX+H. 2: PÜKEX, 18: FOKERHIH+HN. ZU FÜKER+L. 1 ’POKERFZEHN.S 
202 POKEX+22.13:FOKEX+23+N, 2:FÜKES+23,17 

245 FORI=18T0A5TEP-.5:FOKE3E379,83:FÜKEY+4, I: PÜREY+3, 220 

318 FORT=1T0S52:NEXT:POKE36873, 88: FORT=1T058: NEXT :NEAT:POKEN+Z, 

215 POKES+N. L’FOKEX, @:’FÜKER+1+N, L’FÜKEX+1, 1’FÜKER+HZIHN. 0 

217 PÜKEX+ZZ, 2:PÜKER+23+N, 0: Be 

325 FORI=?73ET03163:POKEI.L:HEAT 

338 WE=WE-1: IFWA=DOTHENGUSUBSSBB: GOTOZAG 

240 PRINT" SMRizirismteieiel 

245 IFSCS=HITHENPRINT"A #*# SPIEL VORBEI a  GOTOAR 

254 HI=5C:PRINT"A NEUER HIGHSCORE! 

258 PÜKEY+4, 15: FORI=1T033:FORJ=250T024685TEP-1 :FOKEY+Z, J:NERT 

2376 FORJ=243T0259 : FOKEY+2, J: NEXT :POKEY+2,0:NEAT 

498 PRINT"MSNOCH EIN SPIEL CJ/ND 7":GÜSUPSOHB: POKE138,8 

418 GETTE:IFT$="J"THEN1O 

426 IFT$CH"N"THEN418 

430 FRINT"TRITSCHUESS.. . " :FOKE35379, 27: PÜKE36853, 249: END 

Saas FÜKEY+3,.8:FOKEV+4,15:FORI=Z SATOLZBSTEP-1: FOKEY, I: NEXT :FOKEY,@:RETURN 
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a hd 


1a FOREN+4. 15: FÜREY, 130: S=FF3OHPEER SHE) HRHDEL DEE: FOKEKAN.T :FOKEX,7 
:ES+HZEH+H. . FÜHESTZE: SS: FORES+LS ENDE DEE: FORENG . RETURN" 
a 18: FRINT"ISUS Pig" ___ "EZ FEEEARED CM 
aa FRINT urleinl - SCHNELLER ALS DER":FORT=S1TOSFS:HERT 

NE SEE ja FÖRI=1STOSSTEP-. 1: FÜKEW+4, I: NEAT:FOKEV+3.0 


FRINTSF SO KEHALL 1" 

a4 PRINT"MINN ©C) E7 STEFAN REUSCH 

332 FREIMT' Mei ":FRINT"S 2 HIGHSCHEE: SS" HI 
2a FEINTTEN LEWEL 21-2 7": FOKEL32.E:FÜRE2B4.D 

BETT! TEWALETES: IETELORTOSTHENOTE 

IKEEZ EI 


: FOREN +4, 9: FORI=125T0254 POKEY+1. IINEXT:POKEY+1.@: RETURN 
2 FEINTCHRESSPCHREF THESEN -TIN FÜOREFSSTF. 1a 
13 FEIMT" BR In Aefef" SFRIHT" mM ans... ZUFTHRRERER" 
I FRIHT" Melefeie] FRAESENTIERT: ":FRIHT" Mall N 
"EIR SE KABOOM 43" FRINT' Mad ” 
YEIGHT AFEIL DEE PFEINT'M 8% STEFAH BEUSCHS"OBETUFRH 


1777, EERETUFHN 
"=, 19:G0 102514 
f HFORT= 1102737 NEAT: FOERE3SE73, DE GRTDESLE 
EEE { a.118 
KuRE FR IHT"IS"SFE M=FR"® KABOOM #",3PCR32" 4 
FEIHT'"SSIH DIESEM IMTERESSAH- STEH SPIEL Mit-325EH SIE 
PRINT: au. „IHRER WRSS RUANNE Bi“ en ea 


NWIRFT. "PRINT RRRIERT SICH. Ir "GANZ EIN- RFACH AN. SEER..» 
FÜHE ? :PRIHT"ZIEPUHKTERBE HL UN — 


rn 


"IHT" BISEOMEE SEFANGEN: IP. ":FEINT"SMEOMEE IM DER MITTE DER 
PRINT" SUANNE AUFGEFAINGEN: EP 
FEINT'AMSSIE HABEN ZU BEGIMN 3 SMAHNEN ZUR VERFER-AGUNG, 
a FEINT'"NERLLE 59F, GIET ES EIHENDAZU.M 
ee en N: TE „IEBeacK EN A": ae MAIT133, 1: FETUFRH 

Pr 5 ‚STE 2.22.33" KLMHO"G 
re} ":IFUSZ=STHEHSEZE 


F "IHT RIGHTECHAB" HILDSCSTRECHTI.2), 3)" 

FÜRI= TOR: FORETTEE- TEE, 10: HEHT 

FETUEH 

a DATAESSST, 

A DATAL: 1322 
DATAE:3 

DATE3: 


“ me (ec 
Pic Far Pre her) 


FI 


Da 


DATA 
DATAI4.8 
DEENL2aB 5 & 
IATA22.0, 2,0,.0,8, Eu 
DATA3S, 3, 125:.78.78, 70. 
DATA43.0.65. 6.5.8, 
DATASA.8.128,68. 126,395, 126,0, 8 
>1>3 IATAS1.9,.125.6,62.8,1268.0,0 
3204 DATASZ.8: 76. 76,125,12.12,0.0 
321 DATHS3,0.1265,92,125,6,125.0.8 
3zza DATHS4:0. 125.64: 1265, F0, 1265, 0,0 
s22a DATAS3.0.120,6:5:.9,65:8,8 
S24a DATASE, 5,125, 70, 125, 78, 125,.0.0 
253 DATAS7.2,1285, 78, 1268,65- 12 26,8, is) 

5a DATA1S.3,103,.1803:109,111,107, 103,103 
& IATA1Y. 192, 220,152: 192, 2465, 214,54, 238 
= DATA1S.119,63,315 77,7, 947 
4 DATA1®, 206,252. 242, 224, 224, 224, 224, 224 
IATA23, 20, 26,665. 126,66,66,66, 0 
IATA29, 29, 26.605,08, 05,35, 24,0 
22a TATA21.90:0.656.66:66.66:60:.0,—1 

515 IATALT "4,2 255,2,169,32,15 7:44:38.157, 49.39. 1597,665,20,157,67,30 R 
DATF173. 294,3. 208. 11.224,08. 208,6, 160,1,140,254,3.36:.202.201:.1:.259.11 
IATAZ24. 20, 203,65.150,0.149,.254,3,35, 232,142, 2595: 3 


1 1 1% 
a 


DW 


KETTE u La Flame 


Rn 
DER 
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N) @ Unnnne 
IT nenne 


a IHTAIEP,E, 9er Ai 
a TATAIEE: 05 ‚18 
: le 


IATAIE 
LATALT: 
DATALT: 


41.24.1435. 172, 232: 145 


RENTE RTE SEN ERE 


LATA41,1 EN .169.255,141.24.145 
ı DATAIG: ‚15 7 S1.188.4, 157,206, 21 

3548 3 9,6 ee 

R 213,1.215,1.207,1.195,1,195,.5.201,.3 
35 .5,201,.5 

15028 37,1, ar 1.213. 12 ee tes 291,.5 

1 DATA2G7. 1.207.1.201, 1:201,1 95.5, 201.5 

1 ATR 2.1,215, 1,215, 1.219;1, 7,1:139:1,199,.3: 281,5 

1 ; ‚135,1, 5,.5,201,.3 

18 219,1, 7,1,135:1:199,.5, 201,5 

1 all, 1,25 

1 213,2. 5,1.215:1,207,1.195,1,291,3 

215, 212.1,218. 1,2871 135.1,199,.5,281,.5 
rue Er 

1 9,219, 142192, 5,1,215.1:.297,1,139,1,291,3 

1 281,.3.20°, 1,215 ‚219.1.215,1,297.1,195,1,199,.5.281,.5 

n ‚1,201,1,281,1, 1, 


“ Kniffel 


für den VC-20 + 16K 


”Kniffel”’ wurde schon von den Landsern im Ersten Weltkrieg, unter dem Namen 
”Hindenburgspiel”, geschätzt. Sehr bekannt gewesen ist es vor allem in den 
zwanziger und dreißiger Jahren in Skandinavien unter dem Namen 


"Yahtsee’”. 


Nachdem Anzahl und Namen der Spieler 
eingegeben worden sind, ruft der Com- 
puter automatisch für jeden Spieldurch- 
gang die Namen auf. 

Jeder Spieler hat maximal 3 Würfe mit 
bis zu 5 Würfeln pro Durchgang und muß 
versuchen, eine für ihn sinnvolle Zah- 
lenkombination zu erreichen. 

Hat man 3 Würfe verbraucht oder schon 
vorher eine geeignete Zahlenkombi- 
nation erreicht, kann man nun die Punkt- 
zahl für diese Zahlenreihe durch Drücken 
der davorstehenden Taste eingetragen 
und gespeichert werden, wobei die ge- 
würfelten Zahlen für die Kombination G-L 
noch geordnet werden müssen. Hierzu 
muß die Taste “Q” gedrückt werden und 
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die Zahlen wie folgt geordnet (mit Hilfe 
der Tasten 1-5; s.o.): 


G-3er-Pasch: 55514 xxxyz 
H-4er-Pasch: 333336 xxxxy 
I-Full House: 66622 xxxyy 
K-Straße (kl.): 23453 uvwxw 
L-Straße (gr.): 12345 vwxyz 


Falls die gewürfelte Zahlenkombination 
nicht in die Liste eingetragen werden 
kann, muß ein beliebiges, noch freies 
Zahlenfeld der Liste gestrichen werden 
(d.h. Punktzahl = 0). Dafür braucht nur 
die Taste ”S” gedrückt werden, und an- 
schließend die Taste des zu streichenden 


Compute mik 


Zahlenfeldes. 

Nachdem der Spieler seine Zahlenkom- 
bination eingetragen hat, muß er die 
RETURN-Taste drücken, und der Computer 
ruft den nächsten Spieler auf. 

Wenn alle 13 Durchgänge vorüber sind, 
zeigt der Computer automatisch die 
Punkte aller Spiele an und erstellt die 
Siegertabelle. 

Falls ein Spieler zum zweitenmal einen 
KNIFFEL gewürfelt hat, muß er diesen 
und alle folgenden in der Zeile O-Bonus 
eintragen, wofür er 100 Punkte be- 
kommt. Dieser Bonus ist nur ein ein Zu- 
satz und zählt nicht als eigener 
Durchgang. 
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REM VOR DEM EINGEBEN BITTE: POKE44 ,32:POKE8192,8:NEW 

REM&**KkKNIFFEL KHK KK 
REMKAKKKIKRRIE ER CK 
POKE3E8?79,119:POKE36669 ‚285:POKE36378,18 
PRINT" U" :FORT=828T088 1:READY:POKET,Y:NEXTT:SYS328 
READY: IFY=-1THEN19 
FIRT=BTOT:READU:POKET+S1290+Y#8 „USNENTT 
GOTO? 

PRINT"B] KNIFFELEEEENERI ———————" 

PRINT"IBR(C) 1554 Ey" 

FRINT"MERALAF PANZ " 

PRINT"ERISMANLEITUNG ?" 

SC5HUEIOG 

IFA£="J"THENES 

GCTO3BB 

PRINT")  KNIFFEL" 

PRINT"EKNIFFEL WIRD MIT 5 M WUERFELN GESPIELT.SIEM KOENNEN 3 MAL WUERFELN"® 
PRINT"VERSUCHEN SIE VERSCH-M IDENE ZAHLENKOMBINAT-M IONEN ZU BEKOMMEN. " 
GOSUE 188 
27 FRINT"ISSKLEINE STRASSEN IST EINE FOLGE VON 4 M WUERFEN MIT AUFEINAN- 
BDERFOLGENDEN - 
23 PRINT"MAUGENZAHL ,Z.B.: a * | -- 2% M I -- - 2*":605SUB108 
23 PRINT" GROSSE STRASSE":PRINT"MMIST EINE FOLGE VON 54 WUERFEN MIT AUFEINAN 
-M DERFOLGENDER" A 
2a PRINT"BAUGENZAHL,Z2.B.:":PRINT"Q & | — = -":PRINT'"S | -— = =” — ":60SUB108 


-- UHR NDUB.D 
- 0 


nz 


Im — 
p) 


yn 
ji 


ro mo rı £ 
2WUNn-O (G. 


nn m 
ou 


31 PRINT" OBERE GEWINNERKARTE":PRINT"SHIER BEFINDEN SICH BKAESTCHEN FUER EI 
NSER-" 


32 PRINT"ZUEIER-,DREIER- „U.S.W.MAUGEN. WENN EIN SPIEL-EER HIER EINTRAEGT,AD-" 
>23 PRINT"DIERT ER NUR DIE WIER-BFEL MIT GLEICHER PUNK-MTE ZAHL ,UND® 
=4 PRINT"MTRAEGT ES IN DAS ENT-M SPRECHENDE KAESTCHEN 9 EIN"3:GOSUB198 
35 PRINTIARUWIRFT 2.8. EIN SPIELER":PRINT"AI I I I —":PRINT"MTRAEGT ER BEIM ZWEI 
ER" 
26 PRINT'"WDIE 8 EIN. WENM SIE BAUF DER OBEREN GEWINN-EKARTE 63 ODER" 
37 PRINT"SMEHR FUNKTE HABEN,BE-M KOMMEN SIE 35 PUNKTEM BONUS. ":G0SUB 108 
33 PRINT" KNIFFEL":PRINT"EBHEISST DER WURF MIT 5M GLEICHEN ZAHLEN BEL!-M BIGE 
R ART.ER ERGIEET" 
33 PRINT"ZEOPUKTE IM KAESTCHENM FUER KNIFFEL.":6GOSUB1098 
90 FRINT"AII CHANCE":PRINT"NSIBT DEM SPIELER DIEM MOEGLICHKEIT,BEI EIN-M EM BE 
LIEIGEN SFIEL-" 
41 FRINT"SGEANG EINEN GEWINN AN-M ZUSCHREIBEN,DER KEINEM ANDERE BEDINGUG ER-M F 
UELLT." 
42 PRINT"BES LIIRD DIE SUMME DERA PUMKTZAHLEN DER WUER-M FEL EINGETRAGEN. ":G0OSUB1 
[575] ® 
32 PRINT"ÜMSGREIERPASCH UND VIERERPÄASCH":PRINT"BS B.Z.W. 4 GLEICHEN za 
HLEN." 
34 FPINT"BES WIRD DIE SUMME AL-M LER ZAHLEN DER WUERFELBE INGETRAGEN. ":GOSUB 108 
45 PRINT" JERFULL HOUSE" :PRINT"SKANN MAN WAEHLEN,WENNA EINE BELIBIGE KOMBI-M NAT 
ION YON 3 SLEI-" 
4% PRINT"SCHEHN ZAHLEN EINER ART UND 2 GLEICHE ZAHLEN EINER ART GEWUERFELT 4 W 
ERDEN." 

47 PRINT"WBFULL HOUSE GIET 25 MM PUNKTE. ":GOSUBE109:G60TOS1 
43 PRINT" ZERDLLES KLAR ?":GOSUB108 
43 IFA&="N"THEN23 
58 GOTOS3O e 

ti PRINT" WEGSSTREICHEN":FRINT"BUUENN SIE EINE WUERFELM KOMBINATION HABEN,DIEM" 
2 PRINT"IN FEINE DER GENÄANNTENSSPALTEN PASST,MUESSENM SIE EINE SPALTE WEG-M ST 
REICHEN. 

3 GGTUGIBA:PFRINT"ISDAZU DRUECKEN SIE BEI BPER FRAGE NACH DER BSPALTE EINFACH 
RETURN. 
4 PRINT"DANN GEBEN SIE BITTE M DIE SFALTE EIN,DIE SIEBWEGSTRE ICHEN" 
5 PRINT"BWOLL.EN. ":GOSUB1982 
SS5 PRINT"LZUR COMPUTER VERSION. ":PRINT"BWOLSENDE TASTENBELE-M GUNG GILT IMMER : 


57 PRINT” ® 
58 PRINT" N 1 * 
593 PRINT" | 
8 PRINT" I Fi 
61 PRINT” I 
82 PRINT” 
63 PRINT" 
84 PRINT" 
85 PRINT" 
86 PRINT" 
€? PRINT" 
8 PRINT" 
863 PRINT" 
78 PRINT" 
71 GOSUB188 

?2 GOTOAIS 

189 FCRT=8TO?O:POKE36876,T+1398:POKE36874,(78-T)+1308:NEXTT:POKE36874 ,0:POKE36876, 


TON AUS" 


-24, 


Il 


S 


TON AN" 


use 
2] 


DB 


118 GETAS: IFA&=""THENIIO 

111 RETURN 

280 DATA1E2,0,189,8,128,157,0,20,189,9,129,157,0,21,189,8,150,157,92,22 
281 DATA189,8,131,157,0,23,189,9,132,157,90,24,189,0,133,157,9,25,189,8 
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DATA134,157,08,26,189,9,135,157,80,27,202,208,205,96 
293 DATASBS,255,129,129,153,153,129,129,255 
204 DATABS,255,1293,161,1293,129,133,129,255 
205 DATAS? ,255,129,123,145,129,161,129,255 
206 DATAGS ,‚255,1293,165,129,129,165,129,255 E 
207 DATA69,255,165,123,145,129,165,129,255 
293 TATA78,255,165,129,165,129,165,129,255 
209 DATA2S6 ‚,258,8,79,76,65,78,32,32 

©1898 DATN257,2008,0,89,65,78,99,32,32 

211 DATAZS3,1598,8,79,76,65,78,32,32 

212 DATA259,1989,08,30,65,78,98,32,32 

213 DATA118,8,0,8,56,68,68,69,69 

214 DATA119,68,69,€62,0,0,0,0,8 

215 DATA1208,9,8,8,8,8,128,67,68 

216 DATA121,136,980,63,0,8,9,8,8 

21? DATA122,0,4,18,18,18,18,18,146 

218 DATA123,146,146,148,83,176,126,16,16 
219 DATA124,69,66,66,66,124,64,64,67 

228 DATAIZS,8,0,0,8,8,8,8,139 

e21 DATA126,98,0,9,98,9,8,8,224 

222 DATA127,08,0,8,15,17,34,68,1386 

223 DATA114,68,72,890,88,111,64,64,64 

e24 CATA11S,74,82,82,82,226,0,8,8 

225 DATA116,17,193,18,20,25,8,8,8 

226 DATA117,16,32,64,128,8,255,90,8 

227 DATA128,128,129,130,132,136,144,168,224 
228 DATA139,8,8,98,8,9,8,9,9 

229 DATA132,8,119,132,4,4,4,4,135 

238 DATA134,144,136,132,1398,129,128,125,128 
e31 DATA136,137,73,73,91,41,25,25,9 

232 DATA138,4,4,94,4,4,4,9,7 

233 DATA129,123,12,12,18,10,9,9,9 

234 DATA131,8,194,16,33,33,33,33,115 

235 DATA135,8,8,8,8,3,136,72,48 

236 DETA137,33,33,33,33,33,33,33,33 

237 DATA139,32,32,32,32,32,32,32,191 

238 DATA133,8,168,32,32,32,32,32,1608 

388 DATA-1 

381 POKE36879,8: PRINT" JERBRLBBBBEABCDE MERKABBFGCHIJKM" 
382 PRINT" <C) 1984 BY" 


3983 FRINT ER m em":PRINT" BU "a IR" 
384 PRINT"B":POKE198,1:POKE631,131 
READY. 


POKE36879 ,8:POKE36869 ,285:POKE36878,5:PRINT"." 
DIMPA( 19,50) ,PO(18,598):FORT=8TO9:READA:PO(T,BO)=Q:FORY=ITOQ:READPO(T,Y?,PACT,Y? 
NEXTY,T:P=3 

PR INF" I BBBISPASCDE EERENBEFGHIJK" 

PRINT"BI (C) 1994 BY":POKE36879,8 

H& = " SIAIspelgapirTepsteänpuirgege" = U= 1: M=9 

18 PFIHTLEFTECHS ,M) "IRB KM T_DENRT EURMI ":POKE846 , INTCRND<(1) #5) +1 

11 PRINTLEFT$CHE,25-M) "IBRBRRPPRREI ZBBBE "En | I EUREM ":POKE846 , INT<R 
ND<1)4S 3 +1 

12 M=M+U: IFM\ ISORM{9THENU = -U 

13 L=L+1: IFL>SBOTHENL=98:G0OSUB1989:G0TO7? 


voasaou- 


268 PRINT'"Q I LER # # # I";ABS(CAC1,PLI) 


14 ıTY= 2EI FRINTY| 22ER I I | MrABScAC2,PL>) 
“ ee en . 262 PRINT"| 3 3ER — — — l"5ABS(A(3,PL))> 
18 POKE36879,110 @682 PFINT"| 4 4 ER — — I"7ABSCA(4,PL)) 
17 coroaee 264 PRINT"| 5 SER 7 7 7 MzABSCA<(S,PLI> 
265 Pı “ 22. AST e* 

108 REM 85 PRINT"| & 6 ER "EABS(ACB,PL 


118 POKE36876,PO(P,Mi) 

111 GETAS$: IFAS<>""THENIIS 

112 FORY=BTOPA<P ,MIY:NEXTY:POKE36876,9:M1=Mi+1 
113 IFMI>PO<P,B)THENMI=O 

114 IFTY=1THENRETURN 

113 ISOHO119 Völzke Computer 
t1E IFAF=CHRS$(133) THENPOKE36878,9:60T011® Perioharie 
117 IFA$=CHR$( 134) THENPOKE36878,5:60T011® 

118 POKE36376 ,8:RETURN 

1293 END 

298 REM 

228 FRINT"ISEBSNIEVIELE SPIELER(2-9)?" 
221 GOSUB1®88 

222 A2=VAL(AS):IFA2<2ORA2YSTHEN221 

223 DIMA<CIS,A2>,NAcA2) 

2293 FORT=1ITOVAL (AS) 

238 PRINT"REBIHR NAME SPIELER"ZT:PRINT" 


Eprom-Programmer V128 für C 20, C 64 u. SX-64 für 
Eproms 2508/16/32 u. 2758/16/32/64/128. Professionelle 
Ausführung m. komfortabler Treiber-Software auf Kas- 
sette: - DM 249,— 
Neu: Eprom-Programmer V128-G 

im Pult-Gehäuse DM 349,— 
Uniment-C 64-Befehlserweiterung: über 50 zus. Befehle 


u. Funktionen für Assembler, Centronics-Druckanschl., 
Graphik-, Sprite-, Sound- und Disketten-Anwendung; mit 
Beispielprogrammen u. ausführlicher Bedienungsanlei- 
tung DM 99,— 


232 NAS(CT)=NA$SCT)+AS:PRINT "ERBE" 7 NASCT?F Diskette zzgl. DM 7— 


231 GOSUB 188: IFA$=CHR&( 13) THEN234 


UNIMENT-Steckmodul DM 199,— 


233 GOTO231 
Weiteres aus unserem Programm: 


234 IFLENCNA$(T))I>ETHENNASCTI="":GOT0O238 N 
235 NEKXTT — Eprom-Karten und -Löschgerät 


248 PRINT" W":FORRU=1TO13:FORPL=1TOA2 Info ETTRITENEN 
241 P=PL:IFP=3THENP=® gegen Hagen Völzke, Ahornallee 4, 8023 Pullach 


258 PRINT"WANAME:"ZNASCPL) Rückporto Versandhandel Tel. 089/7934534 
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266 
267 
268 
2693 
278 
ar 
272 
273 
274 


= 
En 


276 
277 
298 
299 
321 
sa2 
se: 
so4 
385 
396 
307 
2398 
s89 
318 
311 
=28 
s2i 
s22 
323 
324 
325 
326 
327 
339 
331 
333 
336 
337 
338 
339 
349 
341 
358 
351 
368 
361 
3798 
371 
3839 
3831 
398 
391 
392 
393 
489 
401 
482 
493 
418 
ai 
412 
413 
414 
415 
429 


454 
455 
457 
453 
459 


PRINT*"| ==========2=2=== 1" 

PRINT" GESAMMT "3A<7,PL) 

PRINT*] s=======z2=2=== |" 

PRINT"| 7 DREIERPASCH ERREERA STERNE 

PRINT"| 8 VIERERPASCH 1"3ABS(A(9,PL>) 

PRINT"| 9 FULL-HOUSE |"7ABSCA(1O,PL)) 

PRINT"I A KL. STRASSE ["5ABS(ACI1,PL)Y) 

PRINT"} B GR. STRASSE I"7ABS(AC12,PL)) 

PRINT") C KNIFFELE "3ABS<AC13,PLI) 

PRINT"| D CHANCE "3ABS<AC14,PL)Y) 

PRINT"]| ============== |" 

PRINT" ENDSUMME "zAc15,PLI:PRINT"B 1 2 3 4 5":60T0398 
T2=1NT{RND(1)%6) +2:POKE4589+T1%x2,T2+63: TY=1:1G0SUB108: TY=8:RETURN 


FORT=8T05:FORT1=1T05:G0SUB299 :FORY=1TO3Q:NEXTY,TI,T:WA=1 
D DERTEDEIRIEIEBNOCH EIN WURF 2": IFWA>ZTHEN32D 


GCSUB 188 
IFA$="N"THEN32O 
WA=uAsi: T1=0:T=1:PRINT’Z 


LCHE WUERFEL? W-WURF "3 


GOSUB 188 
IFAS=CHRE&(37)THEN31B 
IFVAL<ASI<LORVAL CAS) >STHEN3B5 


TIETI=SVALCASI:TSTHIS IFTISTHENZ31O 

GOT0395 

FRINT " ER ! je PaEIe] "3:21FT=1THEN381 

FORT2= 8TO7:FORT3=1TOT- 1:T1=T1CT39: GOSUB239:FORT4=1TO19:NEXTT4,T3,T2:G60T0381 


REM 
PR INT " ERDDDIDEDI EEK AESTCHEN ?C1-9/A-D)Y" 

GOSUB 1988 

Al=VAL (AS): IFAS="A"ORAS="B"ORAS="C "ORAS="D"ORAS=CHRSCIBITHENZ2S 
IFA1Z1ORA1>STHEN322 

FORT=1T05:1<(T)=<PEEK (45988+Tx2))-684:NEXTT 
ONA1G0T03398,348,3598 ,360 ,378,380,3930,499,418 

GOTO428 

IFAC1,PLI<>BTHENS21 

T=1:6070333 

FORT1=1T05 

IFICTLISTTHENACT,PLISACT,PLI+T 

NEXTTI 

IFACT,PLI<TTHENA<T,PLI=8:60T0321 

GOTO898 

IFA(C2,PLI<YOTHEN321 

T=2:60T0333 

IFA(3,PLI<>OTHEN321 

T=3:60T0333 

IFA(4 ,PLI<>BOTHENZ21 ERROR 

T=4:60T0333 

IFACS ,PLI<>BOTHEN321 

T=5:60T0333 

IFA(S ,PLI<>OTHEN321 

T=6:60T0333 

IFAC8,PLI<C>OTHEN321 

FORT=1T06: T2=8:FORT1=1T0S: IFICTIY=TTHENT2=T2+1 

NEXTT1: IFT2>=3THENFORE=1TO5:A(C8,PLI=A(8B,PLI+ICE):SNEXTE:GOTOSDOO 
NEXTT:GOTO321 

IFA(9,PLI<>OTHEN321 

FORT=1T06: T2=8:FORT1=1T05: IFICTI)=TTHENT2=T2+1 

NEXTT1: IFT2>=4THENFORE=1T05:A(9,PL)=A(9,PLI+IKE)IENEXTE: 60TOsa8 
NEXTT:GOTO321 

IFAC18,PL)<>OTHEN321 
FORT=1T06:FORY=1T06:T1=8: T2=@:FORU=1T05: IFICU)=TTHENTI=T1#1 
IFICUI=YTHENT2=T2H+H1 

NEXTU ü 
IFT1=2ANDT2=3THENA (18 ,PL)=25:60T0808 \ 
NEXTY,T:60T0321 

PRINT'""A$ 

IFAS="B"THENA58 

IFA$="C"THEN469 

IFA$S="D"THENA?8 

IFA&S=SCHR$( 13) THEN488 

IFA$S="A"THEN448 

IFAC11,PLI<CYBTHEN321 

FORG=1T04: T2=8:1T3=8:T4=98:T5=9: T6=8:FORT=1T06: IFICTI=GANDT3=BTHENT2=STE+1:T3=1 
IFI<CTI=G+ LANDT4=BTHENT2=T2+198:T4=1 
IFI<CTI=SG+2ANDTS=3OTHENT2=T2+180:T5=1 
IFICTI=G+3ANDTE=BTHENT2=T2+18088:T6=1 
IFT2=1111THENAC1I,PL)Y=38:G60T0388 

NEXTT,6:G0T0321 

IFAC12,PLI<>OTHEN321 

FORG=1T04:T2=8:FORT=1T06: IFICT)J=GTHENT2=T2H+1 
IFICT)=G+1THENT2=T2+18 

IFICT)I=SG+2THENT2=T2+108 

IFICT)=G+3THENT2=T2+19008 

IFICT)=G+4 THENT2=T2+18088 

IFT2=11111THENA(12,PL)=498:G60T08008 

NEXTT,G:G0T0321 

T2=Q: IFAC13,PL)Y<>OTHEN321 
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19 


20 


461 F 
462 NEXTTL:IFT2=5THENA (13 ,PL)=58:G0T0888 


463 T 
478 I 
a7ı F 
488 P 


ORT=1T068:FORT1=1T05: IFICTLI=TTHENTE=T2ti 


2=8:NEXTT:GOTO321 

FA(14,PL)I<>OTHEN321 

ORT=1T05:A(14,PL)=AC14,PL)+I<CTI:NEXTT:GOTO89O 

R INT " EeBinPerErEEERNEGSTRE ICHEN "3:FORT=8T019:TY=1:G0SUB188 


:NEXTT 


451 T 
482 6 
483 ı 
424 
435 A 
438 ı 
491 I 
a32 ı 
4933 A 
494 G 
496 A 
497.6 
433 A 
493 6 
5o8 A 
s201 6 
208 A 
sei I 
sıa F 


Y=9:PR INT" ERBDEDEDEDEIDKIINEREREK AESTCHEN ? C1-8/A-DI" 
OSUB198 

FA$="A"ORAS="B"ORAF=!C"ORAS="D"THENASO 

1=VAL(AS)I: IFAL<LIORAL>13THENA82 

(Al,PL)=-1:60T0898 

FAt="A"THEN496 

FA&="B"THENA33 

FAS="C"THENSO® 

(14,PL)=-1 

OTO8288 

11,PL)I=-1 

0OTO898 

<12,PL)=-1 

OTO898 

(13,PL)=-1 

OTO388 $ 
(15,PL)=98:M=8:A(7,PL)=8:FORT=1TOB:AC?,PLI=ABS<AC?,PLII+ACT,PLIENEXTT 
FA(7,PLI>E3STHENA (7 ,PL)I=A(7,PL)I+3S5 
ORT=7TO14:A(15,PL)Y=ABS(ACIS,PLII+ACT,PLI:NEXTT 


828 NEXTPL,RU 
838 T1=8:T1£="":FORT=1TOPL-1:IFAC1S,T)>=AC1IS,TIITHENTI=ST:TISSNASCT) 
831 NEXTT 


832 P 
833 P 
se® A 
sei 1 


RINT "ERS IEGER: "TI$:PRINT"ENPUNKTE: "7A(15,T1) 
=T1:60SUB188 

1=-1:FORT=3TOQSTEP-1 

FPEEK (TX8+7168) +(PEEK (Tx8+7169) #256) <A(15,T1)THENAI=T 


992 NEXTT 


983 I 


FAl=-1THENRUN 


995 T3=7168+A1x8 


906 P 
997 F 
9983 F 
999 G 
1999 
1881 
1802 
1803 
1994 
10085 
19886 
19897 
19883 
69188 
gB1081 
8 
sB102 
1-17] 
69183 
® 
69194 
8 
68185 
68186 
60187 
o 
69188 


‘8 


69183 
829118 
8 

soll 
so1ll2 
69113 
so114 
5,236 
60115 
E9116 
69117 
5,2907 
go118 
5,228 
68119 
5,219 
82128 
8 

so121 
9,125 
gsvı22 


OKET3,A(C15,T1>AND2SS:POKETS+1, INT(ACIS,T1)/256) 

ORT=2T07:POKET+T3 ,32:NEXTT 
ORT=2TOLEN(TIS) +1: POKET+T3,ASC(MIDECTIS,T-1,1)):NEXTT 

OSUB 1888 :RUN ! 
REM 

POKE36879,3:FORT=0TO3 

HICT)I=PEEK (TX8+7168) +CPEEK (Tx8B+7169) 4256) 
HI$S(T)="":FORE=BOTOS:HISCTI=SHISCT) +CHRSCPEEK (Tx8+E+7178)) :NEXTE 

NEXTT 

PRINT" HI1GHSCORESWIBBRNARBBABBSI-=========78" 

PRINT" mg" 

FORT=8OTOS:PRINT"W"3T+17" "SHISCT)5" "3ZHICTI:POKES46,T+1:NEXTT 
FORT=8T028: TY=1:G0SUB1989:NEXTT: TY=B:POKE36879,118:RETURN 

DATA48 

DATA221 ,2598,291,5090,291,250,209,250,215,259,219,250,219,2598,219,750,228,25 


DATA225 ,250 ,228 ,250 ,228,590 ,225,258,219,1500,225,250 ,228 ,250 ,228 ,250,,228,5 
DATA225 ,259,228,508 ,225,250,219,508,219,258,281,500,201,258,209,508,215,25 
DATA219,5998,219,258,219,258,215,5080,209,250,201,508,219,259,219,258,219,25 
DATA215,598,2093,250,201,588,0,598 

DATA19 
DATA225,369,225,360,225,240,228,120,231,369,231,248,228,120,231,248,232,12 


DATA235,720,248,360,235,360,231,360,225,360,235,248,232,120,231,248,228,12 


DATA225,488,13 
DATA217,480,213,4908,223,4908 ‚227 ,200,234,200,230,408 ,227,208,234,2088,238,48 


DATA223,488,227,408,217,49080,213,600,38 
DATA236,125,238,125,2480,2590,241,250,248,125,239,125,233,250 ,236 ,250 
DATA236 ,125,236,125,248,2590,241,250,240,125,239,125,238,250,236 ,258 
DATA236 ,125,236,125,237,250,237,150,238,125,238,125,239,2590,240,158,236,12 


DATA2SO ‚237,230 ‚239,250 ,235 ,250,234 ,500 

DATASO _ 
DATA195,125,207,125,215,125,219,125,221,125,219,125,215,125,207,125,195,12 
‚125 
DATA215,125,219,125,221,125,219,125,215,125,207,125,209,125,219,125,225,12 
‚185 
DATA229,125,228,125,225,125,219,125,195,125,287,125,215,125,219,125,221,12 


DATA125,215,125,207,125,215,125,223,125,228,125,231,125,232,125,231,125,22 
DATA125,223,125,209,125,219,125,225,125,228,125,229,125,228,125,225,125,21 


DATA195,125,207,125 
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82123 DATA32 


sSo1l24 DATA1529,390,159,175,159,175,175,175,175,608 
sa125 DATA1S5,175,191,175,183,175,191,175,183,259,183,175,183,175,195,309,195,17 


5 


soil26 DATA291,175,195,175,191,175,183,175,175,259,175,175,191,175 
e9127 DATA221,175,201,600,209,175,207,175,291,175,207,175,195,175,195,175,195,17 


5,183 
89128 GATAL?S,175,10098 
E8123 DATA22 


EO130 CATAIS1,2008,1931,209,191,200,297,900,223,900 
82131 DATA2,208,219,200,217,2008,213,200,231,908,223,990 
se132 DATABO,2920,219,200,217,200,213,200,231,9390,223,900 
60133 DATA219,208,217,280,219,290,213,1208,0,400 


82134 DATAS2 


€9135 DATA1S3,208,201,309,1939,190,201,200,212,200,207,300 ,201,100,207,208,212,18 


8,207,198 


€2136 DATA2Q1,300,291,100,212,200,213,200,223,600,223,200,219,300,212,100,212,28 


8,201,208 


69137 DATA2O? ,300,201,100,297,200,212,100,207,100,201,300 
g81353 DATA131,100,191,200,183,290,291,609,223,200,219,300,212,190,212,200 ,201,20 


0,207,300 


6869135 DATAZO1,100,207,200,223,200,219,3900,212,100,212,200,219,200,223,600 ,223,20 


8,219 


e2149 DATASOB,212,190,212,290,291,200,207,308 


89141 DATAII 


saıa2 DATA2A1,308,215,6008,219,200,223,800,225,600,223,200,219,300 ,223,600,,219,28 


08,215,8898 
89143 DATA291,409,19 


89144 DATA215,109,215,308,215,100,225,400,225,400,223,400 ,228 ‚400 ‚235,600 ,231,28 


8,225,208, 


89145 DATA190,235,100,231,300,225,100,219,490,232,800,228,308,223,1008,225,808 


LIGHT 


für den VG-20 


Der Light-Pen ist auf sehr einfache 
Weise aufzubauen, da nur wenige 
Bauteile erforderlich sind. 

Näheres bezüglich der Bauteile entneh- 


men Sie der Stückliste. Man kann mit. 


dem Light-Pen eine Position am Bild- 
schirm feststellen und mit Hilfe eines 
kleinen Programmes in den Computer 
bringen. 

Da das Bild beim Fernsehgerät durch 
einen sich schnell bewegenden Licht- 
punkt aufgebaut wird, kann man mit ei- 
nem Fototransistor und einer Schaltung 
mit geringem Aufwand diesen Licht- 
punkt erfassen und das so entstandene 
Signal sich zu nutze machen. 

Das Signal wird in den Computer ge- 
schickt und dieser berechnet die 
Positionen für X und Y und speichert sie 
ab. 

Die Abfrage dieser gespeicherten Po- 
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sitionen erfolgt mit dem Befehl PEEK. 
Der Light-Pen funktioniert nicht bei den 
Farben schwarz und rot und auch nicht 
am Bildschirmrand. 

Weiter hat der Light-Pen einen Sensor, 
den man auf verschiedene Art nutzen 
kann. 

Für den Bau des Light-Pens ist ein klei- 
nes Testprogramm beigefügt, welches 
heifen soll die Funktionen und die Ar- 
beitsweise des Light-Pens kennenzuler- 
nen. 


Stückliste: 

4 Stk. Widerstände 47K 
2 Stk. Widerstände 10K 
1 Stk. Widerstand 100K 
1 Stk. Widerstand 220K 
1 Stk. Folienkond. 33nF 
1 Stk. Folienkond. 2N2 

1 Stk. Folienkond. u47 


Compute mi 


PE 


1 Stk. Tandalkond. ul 

3 Stk. Transistoren BC 337 

2 Stk. Transistoren BC 549 

1 Stk. Fototransistor.BPY 61 BPW 22 

1 Stk. I0-74123 

1 Stk. IC-Sockel 16 pin 

1 Stk. Lochrasterplatine 5cm x 8cm 

1 Stk. Anschlußstecker für Joystick- 
board 

1 Kabel 2-polig/abgeschirmt 

1. Stk. Alter Kugelschreiber 

Der Aufbau ist unkompliziert, man muß 
nur darauf achten, daß der Fototransi- 
stor mindestens 3mm tief versenkt 
wird. 

Die Schaltung selbst muß nicht in ein 
Gehäuse eingebaut werden. Man kann 
diese Schaltung auch noch erweitern, al- 
lerdings nach eigenem Ermessen! 


schaltplan. 


21 


22 


1 REM a aa 
S REM« LIGHT-PEN * 
& REM KK ak ak alle ak ak ale akeakraakakk 
18 PRINT". . 

20 KX=53:KY=-36 

38 R1=PEEK (648) x*256:R2=37838 + (PEEK (648 )AND2) #256 
48 RK=36370:RY=RX+1:RS=37137 

58 PRINT" AIE9 TESTPROGRAMM FUER " 

58 PRINT'"SEBRBI LIGHT-FEN" 

78 PRINT"SEBSTECKEN SIE DEN LIGHT-PEN IN DEN JOYSTICK- BOARD." 

88 PRINT"EIBEHREEN SIE DEN LIGHT- PEN ANGESTECKT ?. DANN: ® 

se FRINT'AERZBEI SENSOR BERUEHREN * 

180 GOSUBS88 . 

118 PRINT" DEMEDIE POKE ADRESSEN FUERDIE KOORDINATEN SIND FUER (X >=36879," 
128 PRINT"FUER <Y>=36871,* 

138 PRINT"BDER SENSOR KANN MIT DER ADRESSE 37137/BIT4 ABGEFRAGT WERDEN. " 
148 PRINT"W1B S=PEEK (37137 )ANDICH" 

158 PRINT"GAS IST!" 

1689 PRINT" 16 = BERUEHRT 8 = NICHT BERUEHRT" 

178 GOSUESED 

1898 S=PEEK (RS>AND16: IFS=BTHEN188 


198 PRINT"IDIBBESNACHFOLGENDES PROGR. MACHT DIE WERTE SICHTBAR.” 

288 PRINT" 1B8PRINT"CHRS$ (34) "A"CHR$(34) "PEEK (36870) ‚„PEEK (3687 1)" 

218 PRINT"MWFAHREN SIE MIT DEM PEN UEBER DEN BILD- SCHIRM,JETZT SEHEN SIE D 
IE: " " 


2E8 FRINT"KOORDINATEN." 

238 S=PEEK (RS>ANDI16: IFS=165THENFRINT"EBRA"PEEK (RX) „PEEK<RY):GOTO238 
248 5=PEEK (RS)ANDI16: IFS=BTHEN248 

258 PRINT"INBERECHNUNG DES ZEICHENPLATZES AUF DEM BILD- SCHIRM" 
2s@ PRINT"WRBFOLGENDES PROGRAMM: BER" 

278 PRINT"18 KR=49:KY=-3E:RX=36879:RY=SRX+1:R5=37137" 

289 PRINT"28 X=FPEEK<RXI:Y=PEEKCRYI" 

238 PRINT"3Q X=INTECH-KXIZ4)EY=INTCCY-KYI/4)" 

388 PRINT"48 IFX<BOTHENX=8" 

318 FRINT"S® IFXI2ITHENK=21" 


Scnaurung __Liour- 


h Igor : ' Jorsriensonad 


& 


328 PRINT"88 IFY<BOTHENY=B" 

330 PRINT"7OIFYY2Z2THENY=22" 

349 GOSUBS6A 

359 PRINT" EBBPERZDEMONSTRAT ION" 


328 PRINT"IBISFAHREN SIE MIT DEM LIGHT-PEN UEBER DEN BILDSCHIRM" 

s7?® PRINT"BNENN SIE DEN SENSOR BERUEHREN WIRD EIN PUNKT GESETZT." 

= a SPACE WIRD DER SCHIRM GELOESCHT MIT RETURN STARTET DER TE 
5 1 u 2 
398 GOSUB468 

488 GETAS: IFxX$=" "THENPRINT"J":GOTO3SO 


418 IFX$=CHR$(13) THEN:RUN 

428 S=PEEK (RS>ANDI1S: IFS=1STHEN3IO 

430 POKER1+A,46:POKER2+A,S 

448 GOTO3938 

458 STOP 

458 MI=PEEK (RA) :R2=SPEEK (RK IIK3=PEEK RK) IKA=SPEEKKRNISKS=PEEK (RN) 
a7a R=(K1I+rN2+43+H44+N5)/5 

458 Y=PEEK (RY)EX=INTECK-KRI ZA): Y=INTCLY-KY)74) 

4398 IFX<BOTHENK=B 

S88 IFX>ZITHENK=ZI 

518 IFY<OTHENY=® 

SEO IFY=:22THENY=22 

530 A=sVx22+R:SG=PEEK (Ri+A):SC=PEEK (R2+A) 

548 POKER1+4,57:POKER2+N,8:FORJ=1T0288:NEXT:POKER1+A ,SG:POKER2+A,SC 
558 RETURN 

SE8 FRINT'IEZEBI SENSOR BERUEHREN * 

578 S=PEEK <RSIAND 16: IFS=OTHENS?® 

528 S=PEEK(RSIANDI16: IFS=16THENSSBO 

598 RETURN 

READY. 
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SEISIER 


für den VG-20 o.E. 


Nach dem ”’RUN” erscheint auf dem Bildschirm ein ren lassen). Dann ertönt eine Melodie und man muß 
Labyrinth. Dahinein werden 15 Goldmünzen verteilt. noch in eine zweite Ecke laufen. (Es muß eine andere 
Auf dem Rand drumherum werden 8 Geister gesetzt. sein, als die erste). 

Sie können sich auch nur auf diesem Streifen bewe- Die Geister sind nicht ungefährlich: Sie kommen auf 
gen. Wenn die Vorbereitungen beendet sind, ertöntein den Spieler zu. 

kurzer Ton und die Zeit beginnt zu laufen. In der Mitte Natürlich nur wenn Sie können, aber wenn man von 
befindet sich die Figur. Sie wird folgendermaßen zwei Geistern eingeschlossen ist, ist das Spiel mei- 
bewegt: | stens vorbei. Zum Glück können die Geister nicht sehr 
I: hoch; M: runter; J: links; K: rechts gut sehen. Sie bemerken den Spieler erst, wenn er 
Wenn man mit der Figur auf eine Goldmünze läuft, er- drei Felder oder näher an ihnen steht. 

klingt ein Signal, und die bis dahin verstrichene Zeit Noch ein Tip: Es ist empfehlenswert, gleich zu Beginn 
(in Sekunden steht rechts oben in der Ecke) wird zur des Spieles in die erste Ecke zu laufen, dann die Mün- 
Punktezahl addiert. Aber alle Punkte nutzen nur, zen zusammeln und danach in die zweite Ecke zu lau- 
wenn man in einer Minute aus dem Labyrinth fen, denn je älter die Münzen sind, desto wertvoller 
herauskommt. Das geht folgendermaßen: Man läuft sind sie. 

in eine Ecke des weißen Streifens (sofern die Geister Wird während der Minute die zweite Ecke nicht ange- 
das zulassen — man darf sich nicht von ihnen berüh- laufen, so verfallen sämtliche Punkte. 


Variablenliste: 
a: Positionen der Geister 0-7 

b: Nummer des Geistes, der dran ist 

c: zählt, wieviele Geister schon gesetzt sind (Zeile 480 bis 500) - 
d: alter Inhalt des bestiegenen Feldes 

e: gibt an, in welche Richtung der aktuelle Geist bewegt werden soll 
f: Ziel des Geistes 

g: Peeklf) 

h: Laufvariable für Zeitschleifen 

i: Punkte 

j: Rekord 

k: gedrückte Taste [Peek(197)] 

I: Position der Spielfigur 

m: gewünschter Schritt 

n: Inhalt des Feldes, das von der Spielfigur bestiegen werden soll 
o: alter Inhalt des von der Spielfigur bestiegenen Feldes 

p: universelle Laufvariable 

q: Anzahl angelaufener Ecken 

r: zuletzt angelaufene Ecke 


Diese Belegung der Variablen (außer c) gilt erst ab Zeile 510! 
a und d sind Felder mit je 8 Stellen. 
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24 


a GOTO 159 

BRume 2 2 3.2.22 7202 727202020202 720272 7 

28 #G0LD DER GEISTER# 

Ss # # 

gu # # i 

3 

1E8 POKESE, 23: POKESS, 8: CLR:DIMAC7P, DET: FORB=7424107431 POKEB. 8:HEAT 
ı7a FÜRE=7455T07527: READC : POKEB,C:NEAT 

155 IATAL?O,85,176,585,170.85,179,85, 25,34,73,85, 73,34, 29.0, 156, 82,157 
125 DATA1E7,127, 127. 127,107, 8, 8.0,24,24,9,8,8, 25, 24,65,89. 69, 34, 22,08 
2553 PÜHKE26573,8:PÜK a 

218 PRINT" IR BEE EEEREREN 
22 a fig 
236 FRINT' ES I" 
248 PRINT" az A bh 13%" 
256 FPREINT'@BEZI + 

268 PRINT" ES | —— k[[ 182" 


275 FRINT'REZI 7 | Ir I" 
258 PEIHT'BERI I Id m I 1 18" 
235 FPEINTTWERT I + | Be 22 
308 PEIHT'"MES | * zn I 8" 
s18 PRINT'"BEST | r Md3d IT" 
328 FRINT'3EZI | Ir a u ee © 
238 PRINT'BEZI I I I I 1" 
24a PEIHT'"aES | I IH m I 1 1" 
359 FPRINT'BESI + I 2" 


I 
358 FRINT' BER | m 1" 
578 FEINT'MEZI 7 % 
338 PRINT'BESI 4 m FI" 
PRIHT" BES | 


PRIHT"BI RE 
25 B=A:C=8 
448 A=INTCRHOLIIKSBSP HEISE 

458 IFFEEK(ASS1SOAHDPEEKAr387289=5THEHFÜOKER, 43 PORER 
458 IFBX15STHEHN44O 

438 A=FHTERHDG1IKSBSI 7650 

439 B=FEEK(A>: IFB=450RB=238THENDICH=EB: PÜKER, 42: AcChen:GecHl 

538 IFE<STHEHNMSS 

518 GOSUBI11ZE 

528 FORE=8TO? 

538 E=INT{RHDE12#47+1:G05UB1359 

545 OHEGOSUE1OGB, 1838, 1068, 103% 

558 K=PEEK.1375 

sed IFK=12THENM=-22 

578 IFE=3STHEHM=ZZ 

5s8 IFE=ZÖTHEHM=-1 

538 IFE=44THEHNM=1 

g56 IFK=54THENM=B:GOTOFGEA 

£16 N=PEEKEL+M) 

828 IFH<I4BAHDHTFIZAHDNTFZZBANDHTZEZAHDHT>LSOTHENSDR 

&2a POKEL.O:0=N:L=L+M:POKEL, 41: POKEL+39728, 1: FOKE25877 , 158: FÜKE36377,8 

&458 IFÜ=43THEH1168 

528 IFO=4öANDLI>RTHEN1198 

aa IFO=420RPEER(eL+rZ EEE RRESILFERMRRUEFEERNIF 17=4Z20RPEEK«L+13=42THENI1 120 


3,7:EsErl 


S 
N (} 


sch IFTIE>"500532" TMENIIS 

378 FREINT'SABRBRRBRI I 

S55 FRIHT, a TE 
238 HEHT:GOTOS2 


1808 F= ACBitez "= PEEK<F}: IFG=4BURG=Z38THEN1828 


1828 FÜKEACB) ‚ DEB) :ICRI=G: POKEF , 42: ACB)=F :RETURN 
1020 F=ArB)-22:6=PEEKiF): IFG=460RG=Z35THEN1828 
1545 RETURH 

1554 FÜKERCH?.DEBI: DEE) =G: POKER, 42 ACB>=F RETURN 
1562 F=Acb)+l:G=FEEK(F3: IFG=400RG=238THEN1928 
15720 FETURH 

1835 FOKEACE>., DERI:DEEISG:FOKEF, 42: ACB>=F RETURN 
nr F=AlE>-1:G=FEEK(F?: IFG=480RG=Z39THEN1828 
1155 FETUFH 


1115 FÜKERCE,DEBS: D<B>=G: POKEF ‚42: ACB>=F RETURN 

11258 FÜOKE3SSTE, 15: PÜKE3ESTE, 130 FÜKESEEFS, 182: FÜRH=1T0788: NEXT: FOKESESY7E, 8: PÜKE3 
273,8 : 

1138 TIs="Soaaaa" : I=d:L=7954: PRINT" ARUNKTE:""WEEIT:"::0=6:R=7636:0=160 

1156 RETUFH 

1155 FÜRF=1T03:POKE3EESTE, 235: FORH=1T0S8: HEART : FOKE3S876, 8: FÜRH=1T058: NEAT :NEAT 
1178 I=I+WALEMIDFCTIE,5,225:0=158:60T03908 

1125 FÜKEL. 44: FORF=255T01275TEP-. 3: FOKE3BS74,PNEHT:GOTOL12Z 

1 


1125 POKE36375, 133: FORH=1T0350:HEATFOKESEST 5,8:FÜORF=1T03: FOKE3ESTE, 224+P : FÜRH=1 
1295 HE=#T:FOKE3E376, BD: NEAT:Q=Q+1: IFOSZTHEHIESO j 

1218 R=L:G0T03049 

12258 FÜKE3ESTP, 178 

2 FRIHT" Te SCHFIDE, DAS WAR NIS 1 Mk HE 
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243 I=9:G0T01278 
5 FÜHRE2SE7F, 103 
FRIMT" TIERE 


GUT GEMACHT | 


FOKRESESER, 248: IFISJTHEN13S8 


239 FRIHT'SAREKÜRD" I 
3 FREIHT"WPUHKTE"T 


255 FRINT"MISHÖCHMAL 7": FOKE13S,0 


3 GETAE 
IFA$="J" THEN2OA 
a4 IFA$="H"THEHNEND 
GOTO1318 
J=1:PRINT" Mi 


HEUER REKORD 11! 


aa" 


MEHRERE 


FORP=255T01285TEP-1 'POKRE36375, PNEHT: FORF=12570255: FOKE36875, P:NEAT'FÜKE3SS 


GOTQO1238 


>29 IFAXBI-2=SLÜRACEP-3=LTHEHES4 

338 IFAXBr+Z=LORACBI+3=LTHENE=3 
ga -IFACB>-44=LÜRACBI-85=LTHENESZ 
3 IFACE>+44=LÜRACEI+SE=SLTHENE=1 


5 RETURN 


Simons Neuplot 


für den G-64 + Simons Basic 


Nach dem Laden und Anstarten mit RUN, 
erscheint die Frage, ob Sie "Simon's 
Basic” geladen haben. Da das Programm 
viele ”Simon’s Basic”-Befehle benutzt, 
müssen Sie vorher ”Simon’s Basic” gela- 
den haben, um mit dem Programm ar- 
beiten zu können. 

Wenn Sie die Frage mit 'J’ beantworten, 
erscheint das Hauptmenue: 

Zum Auswählen stehen 5 Programm- 
unterpunkte zur Verfügung. 

Beim Wählen von Punkt 1 erscheinen die 
momentanen Funktionen, und beim 
Drücken einer Taste (bitte nicht 'Return’) 
erscheint ein weiteres Menue: 

Beim Wählen von 1 werden Sie nach dem 
Darstellungsbereich der Funktionen ge- 
fragt; durch das Wählen kleiner Bereiche 
(0x1) auf X- und Y-Achse, werden die 
Funktionsverläufe in der Nähe des Ur- 
sprungs ergrößert, vernünftige Werte um 
‚sich einen Überblick über die Funktionen 
zu verschaffen, liegen je nach Funktion 
zwischen -30/30 und -5/5 auf X- und Y- 
Achse. 

Der zweite Menuepunkt sollte nur ge- 
wählt werden, wenn eine Funktion be- 
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reits geplottet wurde, und man sich (aus 
welchen Gründen auch immer) die alte 
Grafik noch einmal ansehen will. 

Nach Zeichen bzw. Zeigen der Funktio- 
nen wartet das Programm auf einen Ta- 
stendruck und kehrt dann zum Hauptme- 
nue zurück. 

Beim Wählen des dritten Menuepunktes 
erfolgt ebenfalls ein Rücksprung ins 
Hauptmenue, z.B. wenn man irrtümlich 
die graphische Darstellung gewählt 
hat. 

Das Wählen des zweiten Hauptmenue- 
punktes erlaubt die Ausgabe einer 
Wertetabelle. Dazu erscheinen die mo- 
mentanen Funktionen und Sie wählen je- 
weils Funktion, den niedrigsten bzw. 
höchsten X-Wert und die Schrittzahl. 
Nach einer Rückfrage, ob alle Werte kor- 
rekt eingegeben wurden, werden dann 
die gewünschten X- und Funktionswerte 
ausgegeben. Nach einem Tastendruck 
kehren Sie wieder zum Hauptmenue 
zurück. 

Die Hauptmenuepunkte 3 und 5 sind ei- 
gentlich im Programm gut erklärt und re- 
lativ absturzsicher, dürften also keine 
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großen Probleme aufwerfen. 
Beim Wählen des vierten Punktes bietet 
sich die Gelegenheit, die vorhandenen 
Funktionen abzuändern, und zwar nach 
Drücken von Fi mit Hilfe der Cursor- 
steuerung. Dabei sollte man auch die 
Stringvariable FKT$ nicht vergessen ab- 
zuändern, weil es sonst zu Mißverständ- 


‚nissen kommt, wenn das Programm die 


Funktionen zeigt. Nicht benötigte 
Funktionen werden als ’0’ definiert. 
Nach erfolgreichem Abändern, drücken 
Sie bitte F7 und starten damit das Pro- 
gramm von vorn. 

Zu Bemerken sei noch, daß jeder Unter- 
programmpunkt durch eine verschiedene 
Farbe gekennzeichnet ist: 


Graphische Darstellung: gelb 
Ausgabe Wertetabelle: türkis 
Hardcopy: orange 

Anderung: hellblau 
Programmende: violett 


Anmerkung: In Zeile 3001 hat der 


Drucker nach dem reversen Herz ein re- 
verses Pik (C= und 1) vergessen! 


25 


PFOgFamme 


ig 
8 REM x*k FUNKTIONENPLOT xx*%* 
5 REM A 3% aka aka aka 
6 REM DIESES PROGRAMM IST 
? REM NUR MIT SIMONS BASIC 
Ss REM LAUFFREHIG 11! 
93 REM ak aka aa ak ala aka k 
18 DEF FNACK)I=CI/I2IRNt4-2uXtE 3FKTECLHIE"CI/IBIERtA4 - 2X ta" 
15 3 
82 DEF FNECH)=CI/3IEKt3-4%8X IFKTECEI=S"C1/3Y) RX t3-4%" 
e5 8 
38 DEF FNCIK)I=Kt2-4 IFKTECIHI=S"Kr2-4" 
35 : 
48 DEF FND<X)=B IFKTSCIHI="O" 
air: 
42 COLOUR 8,8 
43 PRINT" Jeprpslapgg ACHTUNG ! I 1" 
44 PRINT"MEBI] HABEN SIE 'SIMONS BASIC' GELADEN"; 
45 INPUT A$ 
46 IF A$="N" THEN PRINT"IeRIIN BITTE LADEN SIE ERST 'SIMONS BASIC' I":END 
47? IF A$2>"J" THEN PRINT"OIKIIN":G0OTO 44 
a8: 
59 PRINT"AF" 
EB PRINT" FUNKTIONENPLO Ta" 
78 PRINT"DRUECKE:I 1 FUER GRAPH. DARSTELLUNG" 


PRINT'"Ag 2 


FUER AUSGABE WERTETABELLE* 
PRINT"m4 3 FUER HARDCOPY AUF DRUCKER" 


188 PRINT" 4 FUER ABAENDERN DER FUNKTIONEN" 

119 FRINT"SM] 5 FUER PROGRAÄMMENDE " 

i29 Ls="":GETUS 

1398 IF WUE="" THEN 128 

148 IF iik="1" THEN CALL FUNKTIONENPLOT 

159 IF WE="2" THEN CALL WERTETABELLE 

1EB IF LIE="2" THEN CALL HARDCOPY 

178 IF LIS="4" THEN CALL AENDERUNG 

189 IF LWIE="S5" THEN CALL PROGRAMMENDE 

180 GOTO 128 

eu8 & 

1209 PROC FUNKTIONENPLOT 

18081 : PRINT"LI"TAB<13)5 "FUNKTIONSPLOT" 

1818 : PRINT" FUNKTIONEN" 

1829 : FOR I=1 TO 4 

1821 : PRINT" FIX)I="HFKTSCH 

1822 : NEXTI 

1823 : PRINT " Melamin LTASTEI" 

1824 : POKE198,9:WAIT198,1 

1825 : PRINT" ERII DRUECKE " 

1826 : PRINT" 1 FUER NEU PLOTTEN" 

1827? : PRINT" 2 FUER ALTEN GRAPH NEU ZEIGEN" 

1028 : PRINT"II = FUER RUECKKEHR ZUM MENULE " 

1829 : GET C$: IF C$="" THEN 1839 

1838 : IF C#="1" THEN 1039 

1831 : IF C£="2* THEN 1a34 

1832 : IF C$="3" THEN 50 

1823 : GüTü 19029 

1034 ı csET2 

1835 : POKE 198,8:WAIT 198,1 

1036 : NRM 

1837 : GOTO 58 

18393 : FRINT" Js DARSTELLUNGSBERE ICH DER FUNKTIONENKE" 

1838 : INPUT" X MIN, X MAX: "381,82 

ımsn 2: IF Xi=sm NR X?=n THFN mamma z 

1069 : INPUT'"M %Y MIN, Y MAX "IY1,Y2 1213 8 FOR I=1 TO ANZ+1 
1879 : IF Yi=ß OR Y2=B THEN 1888 1214 : PLOT X+1,YP,1 
1850 : HIRESS,® 1215 : PLOT X+2,YP,1 
1839 : YM=(Y2-Y1)r2aa 1216 ?: YP=YP+SRK 

1180 : IF Yı>8 OR Y2<B THEN 11al 1217 8 NEXT I 

1119 : YVSABSCYLI/YM 12280 : CHARX+5,9,25,1,1 
1129 ı: FÜR X=8 TO 319:REM X-ACHSE 1278 A$=" URSPRUNG -> RAND ="+STRE$(iX2)+" EINHEITEN" 
1130 : PLOTX,Y,i 1248 : TEXT 8,191,A$,1,1,18 
1198 : NEXTX 1259 ı FOR XL=X1 TO X2 STEPXMx3 
1141 3 ANZ =X2-81 1260 : YELD=SFNACKL)I 

1192 : SRK=320/ANZ 1279 : Y(2Z)=FNB(XL) 

1143 : FOR I1=1 TO ANZ+1 12808 : YIS)I=SFNCCHL)I 
1194 : PLOT XP,Y+1,1 1288 : Yc4)=FNDCKL) 

1145 ı PLOT XP ,Y+2,1 13090 : FOR K=1 TO 4 

1146 : KP=XP+SRK 12310 : Y=C-Y{K)I-Y1d/YM 
1147 : NEXT I 1320 : IF Y<8 OR Y>199 THEN 1348 
1150 : CHAR311,Y+5,24 ,1,1 1330 : R=CRL-X1I/XM 
1168 : Ks (%X2-%1)7328 1335 : PLOT R,Y,l 

1178 : IF 81>8 OR X2<8 THEN 1211 1348 : NEXTK 

1159 : 8=ABSCKLI/EM 1350 & NEXTAL 

1130 : FOR Y=8 TO 1939:REM Y-ACHSE 13E8 i POKE198,8:WAIT1S8,1 
1209 : PLOTS,Y,1 sro: NRM 

ı218 : NEFTY 13224 GOTO 58 

211 : ANZ =Y2-Yı 1398 : 

1212 : SRK=299/ANZ 2008 PROC WERTETABELLE 
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PRINT" WERTETABELLE "SPRINT" I" 
FOR I=1 TO 4 
PRINT" IE FCXI="IFKTSCI> 
NEXTI 
PRINT" mg" 
PRINT "EZBIEISBELCHE FUNKTION L1-41”"5:FETCH"1234*" „1,85: FKT=VALIKS$)I 


‘ 

Ei 

& 

° 

s 

; 

‘ 

® INPUT" %#-MIN.s  *"3MIN:SPRINT"D"ZTABCISIZL INPUT" 8-MAX.8 "3MAX 
® INPUT" SCHRITTZAHL: "5SRT 

* PRINT" SIEBINIHRE ANGABEN SIND: "SPRINT"IIG FUNKTION: "3FKT 

& PRINT" %-MIN. 3: "3MINIPRINT" X-MAXs  : "3MAXSPRINT" SCHRITT. *3SRT 
® PRINT"MBIIST ALLES KORREKT [LJ/NI ?"iKs="" 

: GETK$:IF K$="" THEN 2878 

° IF K$="N" THEN 2888 

: IF K$<>"J" THEN 20808 

® PRINT" %-WERT I FUNKTIONSWERT" 

: PRINT" 

: FOR I=MIN TO MAX STEPSRT 

‘ IF FKT=1 THEN FWU=FNACH) 

‘ IF FKT=2 THEN FWU=FNB<1) 

’ IF FKT=3 THEN FW>FNCCT 

. IF FKT=4 THEN FW=FND<1) 

B IF I=8 THEN FW=8 

® ASS" HER. BEHHRHHHHHHR" 

B PRINT:PRINT" *"7:3USEA$,STR$S(C1):PRINTTAB (2997 :USER$,STRESCFW) 

‘ 
‘ 
° 


NEXTI 
PRINT:PRINT"MITASTE FUER ENDE" 
T$="":GETT$ 
IF T$="" THEN 2228 
2248 GOTO 58 
2258 : 
3808 PROC HARDCOPY 
3881 : PRINT" HARDCOPY" 
3818 : PRINT"MEISNACH DRUECKEN EINER BELIEBIGEN TASTE ER" 
3828 t PRINT"FOLGT EINE HARDCOPY DER GRAFIK AUF DEN FOLGENDEN PRINTERN: “ 
3838 : PRINT'q - vc 1528 - vc 1525" 
3848 : PRINT" - SEIKOSHA GP 188 VC - EPSON RX-80/FX-88 
3858 : FRINT" (MIT INTERFACE FUER C-64)" 
3868 : PRINT"M ABER NICHT VG 1526 !!" 
3878 : PRINT" DEIN" 3 TABC1O>7"LTASTE DRUECKEN!" 
3088 : GETHS:IF H$="" THEN 3080 
38988 : PRINT"IEI BITTE WARTEN SIE AUF DEN DRUCKER" 
s108 : COPY 
3118 GOTG SO 
sı2a : 
48088 PROC AENDERUNG 
4981 : PRINT".ZI ABAENDERN DER FUNKTTONENKIEDEI" 
4818 t PRINT" NACH DEM DRUECKEN DER TASTE KFIN WERDEN" 
48268 : PRINT" DIE FUNKTIONEN AUFGELISTET." 
4828 : PRINT" BITTE AENDERN SIE SIE NACH BELIEBEN MIT HILFE DER CURSORSTEUER 


ı PRINT" NACH ABGESCLOSSENER AENDERUNG DRUE- KEN SIE BITTE KF7ızaakpa" 
® POKE1S3,8:WAITISS,1 
4068 : KEYI1,"LIST1IB-48"+CHRS$C13) 


KEY? ,"RUN"+CHRE&I13) 
PRINT" 9 >BITTE BFIil DRUECKEN ! >WEITER MIT BF? !" 
42838 END 


4198 

sa88 PROC PROGRAMMENDE 

5981 : PRINT" PROGRAMMENDE " 
se1la : PRINT" za" 

5928 : PRINT"DRUECKE MM" 

sa38 : PRINT" 1 FUER ENDE MIT NEUWM" 
s848 : PRINT'M @ FUER ENDE OHNE NEW" 
5259 : GETÄS 

S968 : IF A$="" THEN 5058 

sa79 : ELSE:GOTO 5988 

sa88 : A=VAL AS) 

52988 : IF A=1 THEN 5128 

5108 : IF A=2 THEN 5288 

S1i1la : GOTO 5958 

Ssi2B : PRINT"IIEDESJOLLEN SIE WIRKLICH" 
5138 : PRINT"BPAS PROGRAMM LOESCHEN ?"3 
5148 : IF Ag="N" THEN Seoa 

sı5a ı IF A$="J" THEN PRINT"" NEW 
Ssieo : FETCH"JN",1,A$ 

Sı7a : IF A$="N" THEN 5988 

5188 IF A$="J" THEN PRINT*"W” NEW 


Ss2880 : PRINT " SDCDeEsIrieisDepg BIS BALD ! ? t" 


10. Oktober ’84 Compute mib | 27 


Logik im Basicprogramm 


Wie Sie sich wohl erinnern werden, sprachen wir vor einer Woche über die ein- 
zelnen Schritte der Programmierung. Heute wollen wir diese Ausführung in Hin- 
sicht auf den Basic-Interpreter unseres Gomputers erweitern. 


Während wir mit unserem Rechner ar- 
beiten, entwickelt sich bei uns von ganz 
allein eine bestimmte Vorstellung in Be- 
zug auf die Abläufe im Innern des Com- 
puters. Ob diese Vorstellungen nun der 
technischen Realität entsprechen oder 
nicht, spielt keine Rolle. Wichtig ist nur, 
daß Sie in der Lage sind, die Funktion des 
Programmablaufes zu erklären. 

Wir kommen in diesem Zusammenhang 
zum Modell-Begriff: Der große öster- 
reichische Physiker Ernst Mach prägte 
ihn für ein Ding, ein Schema oder eine 
Idee, die geeignet sind reale Vorgänge, 
deren direkte Erforschung uns mit ge- 
genwärtigen Mitteln nicht möglich ist, 
geistig zu erklären. Bekannt sind zum 
Bei- 

spiel die verschiedenen Atommodelle, die 
den Menschen seit den Tagen des Demo- 
krit von Abdera helfen, Vorgänge in der 
Welt des Kleinsten, das sich direkter An- 
schauung entzieht, plausibel deuten zu 
können. 

Wichtig am Modell ist somit nicht unbe- 
dingt die Übereinstimmung mit dem 
Tatsächlichen, sondern mit den Sympto- 
men der Realität. 

Programmieren ist nun das für einen ma- 
schinellen Prozessor geeignete Auf- 
bereiten und Durchformulieren eines 
Programm-Schemas. Obgleich die Pro- 
blemanalyse, die Aufbereitung für den 
Prozessor und die syntaktische Umset- 
zung in eine dem Interpreter verständ- 
liche Sprache verschiedene Dinge sind, 
bilden sie doch eine semantische (d.h. 
sinnbezogene) Einheit - Wechselwirkun- 
gen sind selbstverständlich. Insbeson- 
dere wirken die Möglichkeiten der von 
uns benutzten Programmiersprache 
Basic, ihre Nähe bzw. Ferne zu be- 
stimmten Problemstrukturen sowie die 
Vorstellungen unsererseits in Bezug auf 
den vom Rechner benutzten Prozessor 
positiv auf den Prozess der Programmbe- 
wältigung zurück. 
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Wichtig ist dabei auch unsere Bereit- 
schaft, nicht jede Möglichkeit vonseiten 
des Interpreters zu nutzen, um uns die 
Sache so einfach wie möglich zu 
machen. 

Versierte Programmierer und Infor- 
matiker sind nicht einig darüber, daß bei- 
spielsweise Sprungbefehle nur sehr zu- 
rückhaltend benutzt werden sollen, wenn 
man gut konzipierte Programme schrei- 
ben will. Wesentlich günstiger ist es, Ent- 
scheidungen an Ort und Stelle zu treffen, 
statt in Unterprogramme zu verzweigen, 
um lediglich eine oder zwei Bedingungen 
zu prüfen.. 

Hilfreich ist es in diesem Zusam- 
menhang, die in Basic obligatorischen 
Zeilennummern zunächst wegzulassen 
und ein Programm ohne Zeilennummern 
und Sprungbefehle zu schreiben. Dies 
wird sicher manchem, der schon ein we- 
nig Programmiererfahrung in Basic be- 
sitzt, lästig, ja vielleicht sogar unmöglich 
erscheinen. Die Erziehung der eigenen 
Person zu strukturiertem Denken (wie es 
erfolgreiche Programmierer auszeichnet) 
wird aber durch diese Verfahrensweise 
entscheidend gefördert. 

Doch nicht nur der (vorläufige)Verzicht 
auf Programmzeilen, sondern ebenso die 
ständige Übersetzung von Basic- 
Befehlen in’s Deutsche helfen Ihnen, sich 
der Möglichkeiten wie Handicaps einer 
höheren Programmiersprache bewußt 
zu werden. 

Diese Übersetzungsarbeit ist schon 
deshalb sinnvoll, weil bei Formulierung 
der englischsprachigen Anweisung aus 
Rücksicht auf den Speicherplatzbedarf 
sowie den Komfort im Programm- 
Eintippen (lange Anweisungen sind um- 
ständlicher einzugeben) so knapp als ir- 
gend denkbar gehalten wurde. Diese 
Sparsamkeit bringt es mit sich, daß nicht 
bei jeder einzelnen Anweisung, bei jedem 
einzelnen Basic-Befehl der Sinn im Wort 
erkenntlich wird. Das Sichbewußt- 
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machen einer bestimmten Funktion und 
eine entsprechende Übersetzung hilft 
dann ungemein, eine Optimierung des ei- 
genen Sprachschatzes zu erreichen. 


Wir fassen dies bis hierher zusammmen: 


1. Wir beobachten den Rechner, seine Ar- 
beitsweise, seine Reaktion auf be- 
stimmte Eingaben unsererseits und ent- 
wickeln uns ein Modell von den internen 
Vorgängen im Gehäuse des Commodo- 
re. 


2. Als Modell bezeichnen wir die Summe 
von Vorstellungen, die geeignet sind, be- 
stimmte Geschehnisse, die wir sinnlich 
nicht direkt wahrnehmen können, wirk- 
lichkeitsnah zu beschreiben. Nicht die 
tatsächliche Übereinstimmung des Mo- 
delles mit der physischen Realität ist 
entscheidend, sondern die Eignung, be- 
stimmte Abläufe treffend deuten zu 
helfen. 


3. Komfort des Interpreters bedeutet 
nicht automatisch auch besseres Ergeb- 
nis in Sachen Programmierung. Im Ge- 
genteil: Die Erfahrungen von Fachleuten 
zeigen, daß vielfach geraten ist, auf ein 
Ausschöpfen der programmtechnischen 
Möglichkeiten zu verzichten und statt- 
dessen erhöhten Wert auf eine 
strukturierte Vorbereitung des Program- 
maufbaues zu legen. 


a) Zeilennummern sollen zunächst ein- 
gespart und erst nach Fertigstellung 
des Programmes in einer eigenen An- 
passungsphase nachgetragen wer- 
den. 


b) Die im Computer implementierten Be- 
fehle und Anweisungen sollten auf ih- 
ren Funktionsgehalt hin analysiert in's 
Deutsche übersetzt werden. 
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c) Das Programm sollte zunächst unter 
Benutzung der deutschsprachigen An- 
weisung verfaßt werden. Die "Rein- 
schrift” in Form eines Übersetz- 
ungsverfahrens gehört dann wieder 
in die Anpassungsphase. 


Um insbesondere das unter Punkt drei 
Gesagte noch einmal zu verdeutlichen, 
will ich die einzelnen Schritte anhand ei- 
nes kleinen Beispieles erklären. 


Gehen Sie bitte davon aus ein Programm 
schreiben zu müssen, das die Fakultät 
einer gegebenen Zahl ermittelt. Denjeni- 
gen, die nicht tagtäglich mit derartigen 
Problemen konfrontiert werden, sei ge- 
sagt, daß man unter Fakultät in diesem 
Fall nicht den Teil einer Hochschule, son- 
dern die Menge an Möglichkeiten be- 
greift, eine bestimmte Zahl von Dingen zu 
ordnen. Der Mathematiker schreibt zum 
Beispiel 4! = 24 und will damit zum Aus- 
druck bringen, daß 4 Dinge auf 24 ver- 
schiedene Weisen geordnet werden kön- 
nen. Die Fakultät einer Zahl (dargestellt 
durch ein Ausrufezeichen) errechnet 
sich, indem man sämtliche natürliche 
Zahlen bis zu 1 hinunter multipliziert und 
dabei mit derjenigen Zahl anfängt, deren 
"Fakultät' errechnet werden soll. In un- 
serem Beispiel müssen wir somit4x 3 x 
2 x 1 rechnen, was 24 ergibt. 


Doch nun zu unserem Programm: 
Wir schreiben uns zunächst einmal auf, 
was geleistet werden soll: 


1. Der Ausgangswert soll angefordert 
werden. 

2. Die Fakultät des eingegebenen Wertes 
soll ermittelt werden. 

3. Die Fakultät des Ausgangswertes söll 
angezeigt werden. 


Diese drei elementaren Funktionen un- 
seres Programmes können natürlich 
noch um die eine oder andere Ausgabe- 
Vorschrift oder Sicherungsanweisung 
(z.B. Begrenzung des Eingabewertes) er- 
weitert werden. 

Nun wird die Erstfassung des Program- 
mes erstellt - mit deutschen Anweisun- 
gen (die sich freilich an den sprachlichen 
Mög- 

lichkeiten des Rechners orientieren) und 
ohne Zeilennummern. 


Anmerkung ° 
Fordere an ; 
Eröffne eine Schleife 
‚Setze a gleich 


Prüfe ob 


(a-1)< 1 ist. 


Fällt Prüfung positiv aus SO 


Zeige an 


Mache erneuten Durchlauf 


Nun können wir immer noch in deutscher 
Fassung und ohne Zeilen-Nummern das 


Bemerkung 

Gebe ein 

Für1$ A bis 1 Schrittweite -1 
LaßBA=A*(A-1) sein 


a! = (aktueller a-Wert) 
Beende das Programm! 


Programm in eine Art Pseudo-Basic 
übertragen. 


Programm zur Berechnung der Fakultät 
A 


Wenn (a-1)< 1 ist, dann drucke aus”al =" sowie den augenblicklichen Wert der 


Variablen A. 
"Ende 


(andernfalls) 


nächstes I 


Sehen Sie da haben wir unser 
Pseudobasic-Programm! ’ 
Manchem mag die detaillierte Übertra- 
gung der englischen Basicanweisungen 
ir-unsere Muttersprache lächerlich er- 
scheinen. Und angesichts des ver- 
gleichsweise simplen Programmes mag 
er auch mit einiger Berechtigung glau- 
ben,.diese Phase überspringen zu kön- 
nen. Wenn wir aber erst einmal so weit 
gekommen sind, recht komplexe Listings 
zu erstellen, wird auch der Skeptiker von 
heute merken, wie hilfreich unser Vor- 
gehen ist. Und gerade auch dem Lernen- 
den prägt sich das vielfältige Instru- 
mentarium der Programmiersprache 
Basic wesentlich gründlicher ein, wenn 
er die einzelnen Anweisungen nicht blind 
übernimmt, sondern sich durch die Über- 
setzung Sinn und Zweck jedes Befehls 
vergegenwärtigen kann. 


Der Rest ist nun ein Kinderspiel... 


10:REM PROGRAMM ZUR BERECH- 
NUNG DER FAKULTAT 

20:INPUT A 

30:FOR I=ATO 1 STEP -1 

40:LET A=A*(A-1) 

50:IF (A-1) < "1 THEN PRINT ”äl 
="AEND 

60:NEXT 1 


Ausgangswert a 
mit a Durchläufen 


dem a-Wert des letzten Durchlaufes, multipliziert 


mit der gegenüber a nächstniedrigeren natürlichen Zahl 
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Programm zur Berechnung der Fakultät 


Lesen Sie sich nun noch einmal bei- 
de Fassungen durch. Sie spüren sicher 
sofort, um wieviel plastischer, klarer, ver- 
ständlicher die englische ”Originalbasic- 
Version” geworden ist. 


Als Hausaufgabe will ich Ihnen das fol- 
gende Problem stellen: 

Sie erhalten den Auftrag, eine Digitaluhr 
für Ihren Computer zu programmieren, 
die folgende Leistungen aufweisen 
muß.... 


1. Stunden, Minuten und Sekunden sol- 
len angezeigt werden. 

2. Die Commodore-Uhr soll 24-Stunden- 
Anzeige besitzen. 

3. Bei vollen Zeiten sind Nullwerte durch 
”00” kenntlich zu machen (also bei 16 
Uhr z.B. durch ”16:00:00” oder ”16h- 
00m-00s”). 


‚Die Ganggenauigkeit unserer Com- 


puteruhr soll uns dabei weniger interes- 
sieren, obwohl es natürlich schön wäre, 
wenn sie zu allem Luxus auch noch zu- 
verlässig würde. 


Viel Spaß bis zum nächsten Mall 
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4. Internationale GOMMODORE -Fachausstelung 
vom 6. his 8. September 1984 in Frankfurt am Main 


Vom 6. bis 8. September 1984 fand in der Halle 1 des Frankfurter Messegeländes die 4. Internationale 
GOMMODORE-Fachausstellung (GFA) statt. 
Gemeinsam mit dem Veranstalter, der COMMODORE BÜROMASCHINEN GMBH, präsentierten rund 
hundert Aussteller aus sechs Ländern auf ca. 4500 Quadratmetern das gesamte Produkt- und Lei- 
stungsangebot sowie die überzeugende Vielfalt von Anwendungsmöglichkeiten der Gommodore- 


Produkte. 


jetzt 


- Trend zur ernsthaften kommerziellen Nutzung 
- Besucherzahl übertraf alle Erwartungen 


Rückblick 

Wie schon im Vorjahr, jedoch 
fundierter und im größerem 
Umfang wurde interessierten 
Besuchern an allen drei Tagen 
die Möglichkeit geboten, ko- 
stenlos an einer Reihe 
sorgsam ausgearbeiteter Se- 
minare und Workshops 
teilzunehmen. 

Besonderen Zuspruch fand 
dabei ”"COMMODORE-- 
Papst” Jim Butterfield aus 
Kanada, der unter dem Motto 
"What's new COMMODORE” 
ausführliche Informationen 
der neuen Computer-Gene- 
ration plus/4, C 16, C 116 
vermittelte. Eine umfassende 
Multivisionsshow informierte 
mehrmals täglich über das 
reichhaltige Commodore-Pro- 
gramm und demonstrierte 
gleichzeitig, wie un- 
terhaltsam und überzeugend 
sich solche Medien ensetzen 
lassen, wenn man damit um- 
zugehen weiß. 


Die CFA, immerhin die erste 
und einzige eigene Messe ei- 
nes DV-Herstellers - also in 
relativ kurzer Zeit - nicht nur 
für den inländischen Markt, 
sondern insgesamt für die 
europäische Fachwelt eine 
Bedeutung erlangt, die sogar 
die Veranstalter bei allem 
Selbstvertrauen und ihrem 
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schon sprichwörtlichen Opti- 
mismus seinerzeit nicht er- 
warten durften. So zögern 
selbst kritische Experten und 
eher skeptische Fachjournali- 
sten nicht länger, zuzuge- 
stehen, daß die GFA neben 
den Messen in Hannover und 
Köln mittlerweile zu den 
wichtigsten Fachveran- 
Staltungen dieser Art gezählt 
werden muß. 

Nach den von Jahr zu Jahr 
sprunghaft angestiegenen 
Besucherzahlen seit 1981 
wurden für die diesjährige 
CFA erstmals mehr als zwan- 
zigtausend Besucher er- 
wartet. Am ersten Tag zählte 
man 5400 Besucher, am 
zweiten Tag weitere 6600, 
das Ergebnis für den dritten 
Tag beläuft sich auf 12500 
Besucher, so daß die Gesamt- 
zahl der Besucher in diesem 
Jahr mit 25500 zu beziffern 
ist. Zweimal mußte die Halle 
aus polizeilichen Gründen 
wegen Überfüllung vorüber- 
gehend geschlossen werden. 


Trend: 


Versucht man nach der Viel- 
zahl von Eindrücken dieser 
drei Tage und besonders nach 
der bis zum Abend wachsen- 
den Turbulenz des dritten Ta- 
ges eine erste vorsichtige Bi- 


lanz zu ziehen, so muß man zu 
dem Schluß kommen, daß 
nach den immensen Steige 
rungsraten der letzten Jahre 
und besonders des abgelau- 
fenen Geschäftsjahres die 
Bedeutung des Microcom- 
putermarktes für die Wirt- 
schaft und ihre Zukunft gar 
nicht wichtig genug einge- 
schätzt werden kann, und der 
seit Jahren konstatierte und 
immer noch wachsende Boom 
seinen Höhepunkt erreicht 
hat. Neue Hardware-Serien 
(die COMMODORE-Geräte 
116, 16, plus/4 und die neuen 
Geräte der 8000er Serie) und 
immer perfekter maßge- 
fertigte Programme für jedes 
Anwenderbedürfnis tragen 
dazu bei, dem Markt Bereiche 
zu erschließen, von denen 
man noch vor wenigen Jahren 
nicht einmal zu träumen ge- 
wagt hätte. Schon lätzt las- 
sen sich durch zukunftsträch- 
tige Neuentwicklungen und 
hohe Fertigungszahlen un- 
wahrscheinlich günstige 
Preiskalkulationen erzielen. 
Ausgereifte und zuverlässige 
Softwaresysteme für jeden 
Betriebsbereich können be- 
reits günstiger als herkömm- 
liches, vergleichsweise 
schwerfällige Büromaschi- 
nen angeboten werden, d.h. 
zum Preis von gängigem 
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elektronischen Spielzeug, 
lassen sich nun bereits ern- 
sthafte, kommerziellnutzbare 
Programme erstellen und ein- 
setzen, deren wichtigste Vor- 
züge, insbesondere für Laien 
und Newcomer gerade in ihrer 
einfachen und praktikablen 
Anwendungsweise und kom- 
fortablen benutzerfreund- 
lichen Handhabung liegen. 


Ein wichtiger Trend, der sich 
neben dem allgemein immer 
größeren Interesse und Of- 
fentlichkeitsbewußtsein und 
den hohen Besucherzahlen 
bei der diesjährigen CFA 
deutlich abzeichnete, be- 
stand in der Anwesenheit von 
Interessenten, denen es ein- 
deutig um qualifizierte beruf- 
liche Anwendung von Micro- 
computern ging. Dies wurde 
von Besuchern und Ausstel- 
lern immer wieder bestätigt 
und durch Andrang und Nach- 
frage an Ständen, die solche 
Programme anboten, weithin 
sichtbar belegt. 

Mitarbeiter der Volkshoch- 
schule Frankfurt hatten auf 
Einladung der COMMODORE 
GMBH einen markenun 
abhängigen Informations- 
stand eingerichtet. Auch hier 
übertraf die Menge der An- 
frage an allen drei Tagen alle 
Erwartungen. Aus der Sicht 
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dieses gleichsam überpartei- 
lichen Standes konnte am 
Ende der Ausstellung der 
Trend zu gezielten professio- 
nellen Nutzung bestätigt 
werden. 


Einsatzmöglichkeiten: 


Gezeigt wurde eine nahezu 
unbegrenzte Zahl von Nut- 
zungsmöglichkeiten in Orga- 
nisation und Technik, die 
deutlich macht, daß die neue 
Generation von Microcom- 
putern seit geraumer Zeit aus 
den Kinderschuhen heraus- 
gewachsen ist und es sich da- 
bei längst nicht mehr um 
Werkzeuge für Fans und 
Fachleute handelt. Es lassen 
sichkaum noch Branchen und 
Betriebsbereiche denken, für 
die mittlerweile nicht eigen- 
ständige maßgeschneiderte 
Programme entwickelt wur- 
den; die Anwendungsskala 
etwa der Gesellschaft für 
Energiespartechnik in Pfung- 
stadt reicht von Industrie- 
Steuerungsanlagen für Brenn 
öfen der Ziegelei- und Kera- 
mikindustrie, für Großküchen 
und Backwarenhersteller 
über die Meßwerterfassung 
und Fertigungskontrolle im 
Maschinenbau und der Kfz- 
Technik bis zum Programm 
von Systemen, die so pas- 
send und preiswert gestaltet 
sind, daß sich damit noch die 
Energieverbrauchsminde- 

rung im eigenen Dreiperso- 
nenhaushalt lohnt. 


Die FirmaMO00S& PARTNER 
in 7537 Remchingen bietet 
komplette und bis ins ein- 
zelne spezifizierte EDV-Pro- 
gramme nicht nur für 
Architekten, sondern auch für 
alle Handwerkszweige des 
Baugewerbes. 

Diese Programme wurden 
Punkt für Punkt aus dem 
Alltag von Maler-, Spengler-, 
Dachdeckerbetrieben usw. 
erstelit und exakt auf die An- 
forderungen der zuständigen 
Landes-Innungsverbände 
abgestimmt. Der Karlsruher 
Firma SCHNEIDER & KOCH 
ist es in den letzten Jahren 
gelungen, mit ihrer eigens 
entwickelten Netzwerktech- 
nik für Commodore-Rechner 
der Serien CBM 4000, 8000 
und 700 die Kapazität dieser 
preiswerten Microcomputer 
bis in die Bereiche der mittle- 
ren Datentechnik (MDT) zu 
erweitern - und dies zu nur 
etwa ein Drittel des Preises 
herkömmlicher Systeme, so 
daß mittlerweile sogar nam- 
hafte Firmen der Großindu- 
strie (Thyssen, Merck, Rey- 
nold’s Tobacco, Böhler Stahl 
AG, Wacker Chemie und die 
Lufthansa) wichtige Bereiche 
ihrer Meßwerterfassung, 
Test- und Laborchemie, 
Materialwirtschaft und Fi- 
nanzbuchhaltung über 
Schneider- und Koch-Sy- 
steme auf der Basis von 
Commodore-Rechnern ab- 
wickeln. Zu diesen anspruchs 
vollen SK-LAN-Systemen 


bietet die Firma Schneider 
und Koch auf.Anfrage in einer 
Referrenzliste eigens konzi- 
pierte Software-Programme 
für praktisch jede Branche 
und Größenordnung. 


Erwähnt werden muß noch, 
daß einige der renommierte- 
sten pädagogischen Fachver- 
lage in Deutschland (u.a. Lan- 
genscheidt; Otto Maier und 
Westermann) ihre neuen 
Lernprogramme vorstellten. 
Programme die nicht nur 
technisch perfekt sind, son- 
dern auch vom pädagogisch- 
psychologischen Standpunkt 
aus mittlerweile so fundiert, 
daß sich damit umfangreiche 
Aus- und Fortbildungskurse 
geradezu spielerisch und als 
Entspannungsübung bewälti- 
gen lassen. Doch sollte man 
hier auch eine von der 
Methode wie vom Manage- 
ment her so junge Firma, wie 
die SM Software AG nicht 
vergessen, die mit ihren mo- 
dular aufgebauten Soft-Lear- 
ning-Kursen für den C-64 
eine überzeugende neue 
Lernmethode zu entwickeln 
vermochte. Diese Lern- 
methode wurde nach neue- 
sten_ tiefenpsychologischen 
Erkenntnissen auf audio- 
visueller Grundlage konzi- 
piert und vermag weite Be- 
reiche des Vor- und Unterbe- 
wußten für die interaktive 
Wissensvermittlung zu akti- 
vieren. Ebenfalls für den C-64 


Worauf schon viele warten..... 
Compute mit jetzt im Abo 


Roeske Verlag 
Fuldaer Straße 6 
3440 Eschwege 


Raiffeisenbank Eschwege eG, 
Bankleitzahl 522 603 85 


Kto.-Nr. 245 8888 


Auslandsabo nur per Euroscheck 
(Unterschrift auf der Rückseite, nicht vergessen) | unterschit 
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wurde von der SM Software 
AG zusätzlich zu den be- 
währten Programmen dieser 
Firma mit der neuen Small 
Business-Serie die preis- 
werte und überzeugende 
Einsteiger-Software für Frei- 
berufler und mittlere Betriebe 
entwickelt, die den entschei- 
denden Schritt zur Anwen- 
dung im eigenen Bereich bis- 
lang noch immer aufzuschie- 
ben vermochten. 


Fazit: 


Abschließend läßt sich sagen, 
daß mit der CGFA 1984 end- 
gültig der Beweis erbracht 
wurde, daß Microcomputer in 
unserem Alltag mittlerweile 
so nützliche und unerläßliche, 
jedoch erheblich vielseitigere 
Arbeitsgeräte sind, wie Tele- 
fon oder Schreibmaschine, 
Preis und Bedienungskom- 
fort, sowie die Vielzahl er- 
probter fertiger Programme 
für jeden Zweck, gestatten ih- 
ren ebenso unprätentiösen 
wie selbstverständlichen 
Einsatz. 

Der Erfolg der 4. Internationa- 
len COMMODORE-Fachaus- 
stellung in Frankfurt am Main 
und besonders der Be- 
sucheransturm des dritten 
Tages lassen es angeraten er- 
scheinen, die Ausstellung 
künftig in noch größerem 
Rahmen und evtl. für die Da- 
uer von vier oder fünf Tagen 
zu präsentieren. 


Name 


Straße 


PLZ, Ort 


Ich bezahle per Scheck oder Überweisung 


O vierteljährlich a DM 39,- 
© jährlich a DM 156,- 


Mir ist bekannt, daß ich die Bestellung innerhalb von 
8 Tagen widerrufen kann. 
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Assemblerkurs Teil 6 


Auch heute wieder eine Erweiterung für den Editor. Um ein Listing auf den Drucker aus- 
geben zu können, benutzten Sie bisher den Befehl ”T”. Damit bekamen Sie ”aber” nur 
eine Hardcopy des Bildschirms. Um längere Assemblerlistings ausgeben zu können, 
war diese Routine ungeeignet. Diese neue Befehlsfolge erlaubt Ihnen, das reine Assem- 
blerlisting auf den Drucker auszugeben. 


Listing.1A 


296 IFAs="LP"THENGOSUB15999:G0OT0298 


READY. 


15898 GPEN4 ,4:FORC=NITON2:QCE="" 

"+STRECCI, IH" * 

"THEN OC$=0C$+" ” 
FORI=1T03: 1$=MIDE(AS(CY),1,1):0C$=0C$+1$: IF1$< >" 
":OCS=LEFTS(COC$, 11) 


159818 GC$=RIGHTSC" 
15915 IFLEFTECASCCI, L)=" 
159028 
15925 GC$=0C&+" 

15858 QC$=0C$+MID$S(ASCCY,I) 


"THENNEXTI 


15869 PRINT#4 ‚OC£:NEXTC:CLOSE4 RETURN 


READY. 


Ab dieser Folge übrigens, werden wir im- 
mer ein oder mehrere Befehle ausführlich 
erklären, sodaß Sie in der Lage sind bes- 
ser zu verstehen, wie ein Befehl wirkt. 


Diesmal werden wir uns mit den Inkre- 
mentierbefehl (INC) befassen: 
INC bedeutet Operand + 1 


Weiche Operanden sind möglich? 

1. Eine absolut angegebene Speicher- 

zelle 

in MC-Code: 

EE 2D 63 (hexadezimal) 
High-Byte der Adresse 
Low-Byte der Adresse 
Befehlscode 


das gleiche in Basic: 
Poke 25389, Peek (25389)+1 


2. Eine Speicherstelle auf der Seite 0 
(das sind die Bytes mit den Adressen 0- 
255) 
z.B. INC 30 (hexadezimal) 
in MC-Code: 
E6 1E 

Adresse 

Befehlscode 


das gleiche in Basic: 
Poke 30, Peek (30)+1 
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3. Eine absolut angegebene Speicher-' 


zele + den Inhalt von X-Register 

(indiziert) 

z.B.: INC 27934,X 

in MC-Code: 

FE 1E 6D 
Highbyte der Adresse 
Lowbyte der Adresse 
Befehlscode 


das gleiche in Basic: 
Poke (27934+X), Peek (27934+X)+1 


4. Eine Speicherstelle der Seite 0 + den 
Inhalt des X-Registers (indiziert) 
2.B.: INC 27,X 
in MC-Code: 
F6 1B 
Adresse 
Befehlscode 


das gleiche in Basic: Poke (27+X), 
Peek (27+X),+1 


Außerdem werden das Zeroflag und das 
Vorzeichenflag beeinflußt. D.h., wird 
durch das Inkrementieren irgendeine 
Speicherzelle 0, so steht das Zeroflag auf 
1, anderfalls auf 0. Das Vorzeichenflag 
ist eine Kopie des höchstwertigen Bits 
des inkrementierten Bytes. 
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Zurück zu unserem Kurs: 


Diesmal ein etwas größeres Programm: 


Listing 4A 


1 LOLBY EQU 97 

2 DFHBY EQU 648 

3 ORG 8283 

4 LDA DFHBY 

5 STA LOLBY+1 
E LDA #8 

7 STA WOLBY 

8 LDA #83 

3 JSR ZEILE 
18 LDx #23 

11 JSR RAND 

12 JSR ZEILE 
13 e RTS 

14 ZEILE LDX #48 

15 ZEILI STA (WOLBY),Y 
16 INY 

17 BNE WEIT 

18 INC WOLBY+1 
13 WEIT DEX 
28 'BNE ZEILI 
21 RTS 
22 ‚RAND STA <WOLBY),Y 
23 PHA 
24 TYAa 
25 CLC 
26 ADC #39 
27 TAY 
28 BCC WEIT2 
Ex) INC WOLBY+1 
38 WEITE PLA 
31 STA (LWOLBY),Y 
32 INY 
23 BNE WEIT3 
4 INC WOLBY+1 
35 WEIT3  DEX 
6 BNE RAND 
37 RTS 


Tippen Sie es in den Editor; saven Sie es 
ab; assemblieren Sie es; und starten Sie 
es, nachdem Sie den Bildschirm gelöscht 
haben, mit Sys 828 aber nur einmal. 
Sie sehen nun einen leeren Bildschirm, 
umrandet von Herzen und in der 3. Zeile 
steht Ready. Wäre das Programm nicht 
ausgegangen, dann würde das Ready 
auch fehlen. 
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Nun zum Erklären des Programmes: 


Die ersten 2 Befehle: 
WOLBY EQU 97 
DFHBY EQU 648 


Wir wissen schon, daß EQU ein Pseudo- 
Befehl ist, der einer Adresse einen Na- 
men zuweist; nämlich in unserem Falle 
WOLBY (Wo Low Byte) = Adresse 97 

DFHBY (D-File-High Byte) = Adresse 
648 


Labelnamen sind zwar beliebig, aber man 
sollte sie so wählen, daß erkenntlich 
wird, wozu sie da sind. 

Zu DFHBY ist noch zu sagen, daß das Be- 
triebssystem des Commodore in den 
Byte der Adresse 648 festlegt, wo der 
Bildschirm beginnt. 

Die Bytes der Adressen 97-101 sind nor- 
malerweise für das Fließkomma-Akku 
#1 reserviert. Da wir in unserer Routine 
allerdings weder mit Fließkomma rech- 
nen, noch ROM-Routinen benutzen, kann 
man dieses Feld ruhig als Speicherplatz 
in der Seite 0 (Zeropage) benutzten. 


3. Befehl 

ORG 828 dürfte mittlerweile bekannt 
sein. Übrigens beginnt bei 828 der Kas- 
settenpuffer, der 191 Bytes lang ist. 


Der 4. Befehl 
LDA DFHBY bedeutet; lade den AKKU mit 
den Inhalt von DFHBY 


Der 5. Befehl 

STA WOLBY +1 bedeutet; speichere den 
Inhalt von Akku in die Adresse WOLBY 
+1 (=98) 


Der 6. Befehl 
LDA #0 bedeutet; lade den Akku mit 0 
und der 


7. Befehl 
STA WOLBY bedeutet; speichere den In- 
halt vom Akku nach WOLBY (= 97) 


8. Befehl 

LDA #83 bedeutet (siehe 6. Befehl) lade 
in den Akku 83 (= Code von einem 
Herz) 


Der 9. Befehl 
JSR ZEILE. Ein neuer Befehl, aber einfach 


zu erklären. Er ist wie in Basic der Befehl : 


Gosub, nämlich "Springe zu einem Unter- 
programm, von dem du mit RETURN wie- 
der zurückkehren kannst”. 

Mit dem Operand "ZEILE” geben wir die 


Adresse an, mit dem der 14. Befehl mit, 
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dem Label "Zeile” beginnt. Den Return- 
Befehl kennen Sie auch schon — der 
RTS. 

Wir benutzen ihn immer, um nach einem 
Maschinenprogrammlauf zum Basicin- 
terpreter zurückzukehren. Dies ist auch 
einfach zu erklären, denn der Basicinter- 
preter ist eigentlich nichts anderes, als 
ein Maschinenprogramm, von dem wir 
mit dem Sys-Befehl eine Maschinen- 
Unterroutine aufrufen können. Und von 
diesem Unterprogramm müssen wir 
natürlich mit RTS zurück zum 
Basicinterpreter. 


Der 10. Befehl 

LDX #23 ist ein Befehl den Sie kennen - 
lade das X-Register mit 23. Dieser Befehl 
gibt dem Unterprogramm ”"RAND”, das 
mit dem nächsten Befehl aufgerufen wird 
die Mitteilung, daß es 23 mal eine Zeile 
Rand machen soll. Durch Minderung 
dieses Wertes kann auch eine kleine Um- 
randung erzielt werden. 


Der 11. Befehl 
JSR RAND. Dieser Befehl wurde beim 9. 
Befehl erklärt (Jump Subroutine). 


Der 12. Befehl 
JSR ZEILE siehe 9 und 11 


Der 13. Befehl 
RTS Das Programm ist zu Ende. Rück- 
sprung zum Basicinterpreter. 


Nun zu den verwendeten Unterprogramm 
ZEILE und RAND. 


Zu ZEILE: Sobald dieses Uhnterpro- 
gramm aufgerufen wird, soll eine Zeile = 
40 Herzen ausgegeben werden. Die 
Adresse der Anfangsposition (des 1. Her- 
zens steht in Wolby und Wolby + 1) + 
den Y-Register. Im Akku steht, welches 
Zeichen verwendet werden soll. 


Zum 14. Befehl 

LDX #40. Keine Schwierigkeit. In das X- 
Register wird die Anzahl der auszuge- 
benden Zeichen gebracht. 


Der 15. Befehl 

STA (WOLBY), Y wird zu der Adresse, die 
Wolby und das Y-Register angibt, der 
Wert von A(=Code eines Herzens) 
gespeichert. 


Der 16. Befehl 

INY Wie bei den INC-Befehlen, gibt es 
eine Erhöhung um 1. Diesmal allerdings 
das Y-Register. Falls dieses zu 0 werden 
sollte, muß man Wolby+1 um 1 er- 
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Sn 
SUDLD 


höhen. Dieses Problem wird mit den 
nächsten 2 Programmschritten erledigt. 


Der 17. Befehl 

BNE Weit (Branch on not equal). 

Falls das Y-Register nicht 0 wird, dann 
wird die Erhöhung von Wolby+ einfach 
übersprungen 


Der 18. Befehl 

ING Wolby +1. Das Byte der Adresse 
Wolby +1 wird um 1 erhöht. In diesem 
Teil kommt man nur, wenn beim INY das 
Y-Register ”0” wurde. 


Der 19. Befehl 

DEX: Das Register X wird dekrementiert. 
Dieser und der nächste Befehl sind dazu 
da, alle 40 Herzen auszugeben. Das DEX 
ändert nämlich auch das Zero-Flag, je- 
nach Inhalt des X-Registers nach dem 
Dekrementieren. 


Mit. dem 20. Befehl 

BNE ZEILE 1 wird je nachdem, ob sich in 
X-Register eine 0 befindet oder nicht, 
weitere Herzen ausgegeben. 


Der 21. Befehl 
Mit RTS wird zurückgesprungen; zum 
aufrufenden Programm. 


Das Unterprogramm RAND ist etwas 
komplizierter: 

Es soll folgendes tun: Im X-Register 
steht, in wieviel Zeilen links und rechts je 
ein Herz ausgegeben werden soll. Im A- 
Register steht, welches Zeichen (Herz). 


Der 22. Befehl 
STA (WOLBY),Y dürfte vom 15. Befehl her 
bekannt sein. 


Der 23. Befehl 

PHA. Ein neuer Befehl. Er heißt PUSH 
AKKU. Auf dem Stapel- ein von der CPU 
verwalteter RAM-Bereich - wird der In 
halt des Akku gespeichert. 


Der 24. Befehl 

TYA. Ein einfacher Befehl (Transfer Y to 
A). 

In das A-Register wird der Wert des Y- 
Registers copiert. 


Durch den 25. Befehl 

CLC wird das Carry Flag auf Null gesetzt 
(Clear Carry). Wir müssen nämlich , um . 
von der linken zur rechten Seite zu kom- 
men, das Y-Register um 39 erhöhen. Dies 
erreichen wir durch den 
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) W >> UR if N\ If if 
USERS 


26. Befehl 

ADC #39 (Add with Garry Flag). 

Würde man in den 25. Befehl das CLC 
vergessen, könnte es passieren, daß, 
wenn das Carry gesetzt ist, statt 39, 40 
dazu addiert werden würde. Leider hat 
die 65XX-Familie nicht die Möglichkeit, 
ohne Carry zu addieren. 


Der 27. Befehl 

TAY befördert den Inhalt des Akku wieder 
in das Y-Register (Transfer Akku to Y- 
Register), wo es herkam. 

Der TAY-Befehl ändert das Carry-Flag 
(Übertragsflag) nicht. Es ist aber 
eventuell durch den ADC-Befehl gesetzt 
worden; dann nämlich, wenn der Akku ei- 
nen Übertrag durch die Addition be- 
kommt, hatte (wenn Ergebnis größer als 
255 war). Dann nämlich muß Wolby+1 
wieder um 1 erhöht werden. Dieses Pro- 
blem wird mit dem 


28. Befehl _ 

BGG WEIT2 (Branch on Carry Clear) ge- 
löst: War kein Carry gesetzt, so über- 
springt er den INC-Befehl. 


Liebe Freunde von COMPUTE MIT....! 


Alles, was sich im Fernsehen mit dem 
unerschöpflichen Thema Homecomputer 
beschäftigt, nennen wir Ihnen jeweils an 
dieser Stelle, damit Sie genau zur rech- 
ten Zeit Ihren Fernseher einschalten kön- 
nen und nichts wesentliches versäumen. 
Ein toller GOMPUTE MIT...-Service - denn 
COMPUTE MIT...-Leser wissen Bescheid 
und können mitreden. 
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Der 29. Befehl 

ING-Wolby+1 dürfte klar sein. Das High- 
byte unseres Zeigers muß, wenn das Y- 
Register 255 überschreitet, um 1 
erhöht werden. _ 


30. Befehl 

PLA auch ein neuer Befehl. Er bedeutet 
Pull Akku. Das heißt, daß das oberste 
Stapelelement in den Akku copiert wird, 
also den Ursprungszustand wieder her- 
stellen. Es ist der entgegengesetzte Be- 
fehl zu PHA. Mit dem 


31. Befehl 

STA (Wolby),Y wird, da unsere beiden Zei- 
ger nun auf die rechte Seite deuten, das 
Herz (Inhalt des A-Registers) in den Bild- 
schirmbereich hineingebracht. Danach 
wird mit dem 


32. Befehl 

INY das Y-Register um 1 erhöht, um von 
der rechten Seite eine Zeile tiefer auf den 
linken Rand zu zeigen. 


Der 33. und 34. Befehl 
BNE WEIT 3 bzw. INC WOLBY +1 müßte 
nun jedem klar sein. Mit-dem 


12.10.84 
Microprozessoren- 
Microcomputer Teil I 
4. Struktur eines 
Computers 


SW3 
21.15 h 


35. Befehl 

DEX wird das X-Register, das angibt, wie 
oft diese Prozedur wiederholt werden 
sol, um 1 erniedrigt. Dieser DEX- 
Befehl setzt, wenn das X-Register zu Null 
werden sollte, automatisch das Zero- 
Flag. Durch den 


36. Befehl 

BNE RAND wird das Unterprogramm 
RAND so oft wiederholt, bis alle 23 Zeilen 
abgearbeitet sind. 


Der 37. Befehl 
RTS sorgt dafür, daß wir wieder in un- 
serem Hauptprogramm landen. 


Da dieses Programm ziemlich lang und 
für Sie vielleicht unüberschaubar war, 
befassen wir uns im nächsten Kurs noch 
einmal damit. Außerdem werden wir 
dieses Porgramm noch erweitern, so daß 
1. vorher der Bildschirm gelöscht wird 
und 2. daß man das Programm öfter be- 
nutzen kann. 
Überlegen Sie sich bis zum nächsten 
Mal, wo der Fehler liegt, daß es nur 1 mal 
henutzt werden kann. 

(hf) 


Computer im Fernsehen 


19.10.84 
Microprozessoren- 
Microcomputer Teil I 
5. Wie ein Chip 
entsteht 


SW3 
21.15h 


Korrektur 
zu Dlivaro, C-64 
aus Gompute mit 40 


1888 REM BASICLADER 

1818 FOR1=51288T051254 :READX:POKEI,X:NEXT 

1828 REM DATA MASCH INENPROGRAMM 

1838 DATA120,165,1,72,91,251,133,1,169,208,133,3 
1848 DATA169,48,133,5,169,0,132,2,132,4,162,32 
1858 DATAi77,2,145,49,2008,208,249,238,3,238,5,202 


1868 DATA288,242,1904,133,1,173,24,208,41,241,9,12 
1878 DATA141,24,208,88,162,128,96 

1888 SYSS51288:REM ZEICHEN UMDEF INIEREN 

1898 FORX=8TO135:READT:POKE13312+8,T:NEXT 

1188 REM ZEICHEN-DATAS 


Compute mib 
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für den Gommodore 64 


Wenn $ie das Spiel mit “RUN” gestartet haben, müs- 
sen Sie ein paar Minuten warten. Danach erscheint 
das Titelbild. Jetzt müssen Sie den Joystick bewe- 
gen, um weiter zu kommen. Wenn Sie das getan ha- 
ben, erscheint das Spielbild. Dann geht es los. Sie be- 
kommen nur Punkte, wenn das Spielometer grün ist 


15 REM ==s==========2==2=2=2=22=22=s22222=2=2=2== 
28 REr - THIS IS *J* SOFTWARE - 
25 REM - FREESENTING : - 
35 REM - >>>> RALLY LLC - 


REM === 
POKES3281,6 :PÜKES3238,6 :PRINT"T" 


(ca. bei 215 Stundenkilometer). Es gibt keine Punkte 
mehr, wenn Sie schneller fahren, Sie sollten jedoch 
immer etwas über den 215 km/h liegen. In den 
Highscore kommen $ie nur, wenn Sie über 10000 
Punkte haben. Danach können Sie ”Fire’”’ drücken, um 
noch ein Spiel zu bekommen. 


98 PRINT" AUIDIGMIUREHENK PLUS JOYSTICK IN FORT 2 #4" 
39 
12a REM >>>2335> START OF GAME LLLCLCeC 
101 : 
118 READL 
128 RERDA$ 
120 C=LENCAS) 
148 IFA$="#"THEN308 
169 A=ASCCA$>-48 
178 BSASCCRICHTSCAS, 139-482 
180 N=B+RCB>9)-CC=2)KLLERCAHFKCAI9))) 
298 POKEL.N 
218 LeL+1 
228 G0T0120 
289 : 
298 REM >>>>>> SPRITE SHAPES SCÄLLLLL<c 
291 : 
398 FORN=8T062:READG:POKELSK64+N, RM: NEXT 
310 FORN=BTOE2 :RERDG: POKE13464+N,Q: NEXT N 
328 FORN=8TOG2 :READA:POKE11%64+N,@:NEX PN. 
338 FÜRN=8T062:READA: POKE14#64+N,Q: NEXT BEER Be a ht 
348 FORN=ÖTOE2 :READA :POKE25S#64+N, Q:NEXT # BE 
399 : 
499 REM >>>>>>> KARAK. GENERATOR <<< 
491 : 
419 POKESE334, PEEK(S6334)AND254 :POKEL,PEEK(1JAND2S1 
415 FORT=0T02948:: POKE12288+T ,PEEK(53248+T) :NEXT 
438 READO: IFQ=-1THEN458 
449 FORI=ATD7 :READZ: POKE12289+0%8+1, 2: NEXT :G0T0439 
459 POKE1.PEEKC1)OR4:POKESE334, PEEK (56334 )OR1 
469 POKES2272, (PEEK(S3272AND248)+12 
499 : 
Seo REM >>>>2> STRINGE DEFINA. CCCCCcC 
1 
510 DIMASC2S):FORI=1TO25:ASCHJ=" KR IM EARE "NEXT 
528 READA$C1):READA$C2) :READASC3) :READA$C4) :RERDAS(9) :READASC14) :RERDASCLI) 
[4 
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RERDA$ 244 RERDAF LES) 


545 FORI=S1T05:B${1:=" 19965 CBM":HERT 

545 FORI= 1T03:READC$“ 15 :NEZT:GOTO799 

543 

ssa REM rrnpp> VARIABLES DEFINE. 242% 

ssi 

555 POKES3383, 162: FOKES3AA4, 24: POKE2S2Z, 2:POKE2S3, 7: POKES3AGE . PB: POKES=E07,Z 
Ssra FORT=52735T052334 : FÖKET, INTZ1SOERHDZ 133495: NEXT :POKES3O12,3:POKES3913,4 
593 : 

545 REM >>> >> SPRITES SAILISLCLIILL 

Sal 

E16 Y=523243: FORT=2542T02447 : FOKET , 14: NEZT: FOKE2948, 15 

BE a POKEY+41,5:POKEY+42, 7: POKEY+43,3:POKEY+44 1 

E24 FOKE“ u 3: FÜR EY'+45, 12: FÜKEY+23, 8: PÜKEY+Z29,0 

545 POKES3243,173:POKES3249, 208: POKES3252, 158 

245 FÜKES3 > 38: "po IKES32S4, 135 

5508 POKES32SS,85: POKES3ESE , 125: POKES3257 , 120: FÜKES3252. 221 

era POKES3ZEH. 247: FOKESZZEL, 148: FOKES32ESE, 35: POKES32B3. 11: FOKES32S2. 225 
Er’ RETUFH 

533: 

ras REM 732555252 FRONT FAGE ZICICLIEEZ 

ra: 

via PRINT": :FOKES3231.8:POKES3238, 3 

r23 FRINT' MRS RT" 

v4 

5a 

14-15] PRINT"S = 

78 FRINT"AA IS) mal 

za FREIHT"AIIRJI Wal 

rad PRINT" IS] Wal 

zaa FEIHT"AS II Mal 

215 PRINT"ASI IS] wa 

3265 FRINT"SAITJ mal 

5358 FRIHT’SAITI al 

545 PRIHT"aAIZJ mal E72 

559 PRINT") Mal Eu 5 

Seh FRINT"SAITI mal ww 548 8" 

S7a FREINT'"BARI vn m 84" 

220 PEINT'SANI vr 77) ma" 

s30 FEIHNT'"AAIR] 07052 wa 

Saas FRINT" AS I #2 Kö Er JACOB HIELSEHN 12354" 

s1a FRINT" SE: 71 

320 PRINT" - I 4 

>34 PRIHT" =: st] wa. 

>45 IFFEEKSS3 =127THEN?48 

35a FOKES4IETE, PoKEsaa 79 18: FOKES4E 7: 5: FORE® a8, 19: FÜKES4EPE, 1? 
2a FORT=ETOZ ;STEF3E: FOKES4EF3.T: FORT [ :HE= 

37a FORT=25STOSSSTER- 238: POKES4ETE,T HES ST: PL IEESCHET 

33 

1294 >> SAME Iiiclaililicı 

1261 : 

1514 GOSUBSSE:PRINT"T":FOKES3ZZ31. 11° FOKESTZER, 14 

1526 FORI=1T025:FRINT" LES Fun, 

1834 PRINTASCI>S:NEZT 

1048 FÜRT=1373T018335TEP-48: POKET, 159: HE#T:FORT=59455 10558595 TEP43: FOKET.S:HEST 
15569 POKEY+21,255:FOKE2023, 160: POKESS23SI, 5 

1552 FORI=1TO2:FORT=1T01 a0 : NEST: PRINT" SMÄelelsleinteleleietelel" CE 15; NEST 
1a7a REM >> START SKUD LLISILLEILL 

1552 FÜKES 3,35: POKES4272, 158: FOKES4275, 5: FOKES4276, 123 

12224 FORI=15STOGSTER-1:POKES4298, I: FORES4ETF, 15: NEXT 

1435 PRIHT" SIelnlelelnieleleleielett:t:r:1r:1: 1:21 \ 


Dr a RE LE EN) 


Dex} 


ZN 


a u OA Cd Te I, 
u 
Ex 


{Re dd die dub fan ne fe fh Jae fanb Daue Gab Dun du ib Ju ea 
SODANN Bm mm m me 


REMFFFERFSGOSTART SHUT SSSSSCTIESSE 


FOKES4277, 0: POKES4273. 125: POKES4273, 3: FÜKES4 a Z:POEES4E3E: 15 
FÜKES4274. 2: FÜKES4275. 2: POKES4276, 8: POK ES427E.6 
FOHES2923.2: FOKES323, 0: FOKES3ZE1G, EM: POREW +, "3V550309 :FEM # # + + GAME 


REM 322777 ERPLOSION CELcHetteiete 


Po IKEY+32,.9:PÜKE2840, 255: POKES4276. 9: POKEW+23. 1: POKEW+Z3, 1 

FOKES4273, 1: POKES4272, 15: POKES4277, 13: POKES4272, ©: PÜKES427E. 129 
FÜRT=15STO1STEP-1: POKES4235, T:FORI=1T05:POKEW+33, 4: FÜKEW+39, 11: POKEY+39, 2 
POKES4272,22: NEXT :NES&T:POKES4276.,M:POKEY+Z1,0 

FORT=1TI1E09:NEHT 


REM >>2>3>> HI-SCORES CCLCLLLLLLEL 


a FREIHT"I24", :PORES3231,2:FOKES3230,2 


ki 

261@ FORT=1TI24:FRINT" PR Ye; HEAT 

2524 FRINTYS" FORTE PRINT INS ENEXT 
2a32 PRIHT" MMINTNIKIKISTSTADFIRTKTRTKDSIRIRTETEN" ; 

za FORT TE: PEN CHEAT 


SC=FEEH. 529985 +256#PEEK (539089) +65536#PEEK (530199 


Compube mi 
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2195 SC$=5TR$ (SCH 

211@ K=9:FORI=1T053: IFSCHYALCLEFTECBSCIN. PI>THENK=I:1I=5 
2122 NEXT: IFK=9THENZ2195 
2138 PRINT" SDDITEHMAEMOUR SCORE"SCH" 15 HUM. "KON" :PRINT"SRRETITHE TOP FIWEN" 
2135 POKES4276, 9: POKES4272,9: POKES4273, A: POKES4277 ,@:POKES4278. 249: FOKES4276,33 
2145 FOKES4296, 15: FORL=2T017:FÜRL1=1T015:POKES4273, L#L1:NEXTL1.L:POKES427€,8 
2159 PRINT"MASSM4ENTER TOUR INITIALS "5 :OPEN1,9: INPUT#1,1$:CLÖSE 1:PRINT 

2158 FORI=4TOKSTEP-1::BESCI+1>=B$CI>: NEXT: BESCKI=SCH+" "+LEFT$CI$,25 

2178 FORI=1T05:PRINT" MER" I" A"LEFT$CBECTI, 73 ,RIGHTFCEECTI, 33 NEXT: GOTOZ2299 
2139 PRINT" SPIMEIETEPOUR SCORE "5C#$" 15 NOT" :PRINT"SERROH THE TOP FIVE" 

2209 FRINT"WERRTWPRESS FIRE BUTTON FOR ANOTHER 650" 

2212 FORT=1T0590: IFPEEK56E320>=127THENNEHT :GOTO?98 

ze2a PRINT"TI": ns 542761034238 :POKEL,8:NEAT 

2248 een 138 : POKES4277 ,2:POKES4287 , 38: PFOKES4E3S , 15 


2258 FÜKES4E7S,21:FORT=1T01953 NEXT: POKES4276 , 28: G0T01008 
43338 : 

43397 REM >>>>> MASHINCODE DATA CLSLEE 

43995 


Sa DATR43331,20, 55,C5,28,EA.C4,26,C05,C4 
S9GA5 IATREE,BA,CF,AD, 699, 10,9, 060, A2,060,4A,B8,51,58,4f.89.01.05,4A,E8,81 
Sca1a IATACA, 4A, EA, B1,E2,4A,8E,08,CF,5C.09, CF, AD, 69,09.198,6D,88,CF,C9, FC,Fa,07 
59228 DATAC9,5C,F@,63.40,94.03,68,$D,08,D18 
55633 DATARD,1E, DG.29,81,18,F5 ; 
Saa4a DATAAD.93,CF.F@,20,09,61,F8, 19, 9, 0D,50,F8.07. 40. ACC. AR, GF.312,F5.07 
Ssaasa DATASC, ACC», A2,0E,SD,FS.87 
Saas DATAAD,GE,CGF,SD,02, 04, Al, aFr,CF.20,22,D4 
saa?a DATARZ,GE,AC.AR,CF. 23.18, FD,CAH,DS,FF 
Sansa DATAAZ, 65, BD. 49.065,09, F1:F8,@F.18,69.91,90.@9,19.E8.E3,E8, 11, D@.EN.4C, Fi 
596925 DATAL3 
Sassa DATAR3, 01,20,85, I, Al, SA,CF,E2,69,CE,CA,5D.,09,109.E8,E5,E3,E8.11,D8,D4 
574128 DATAAD,89,CF,F%,02.18,83,40,47,03.13, AD, @B. CF.61,89,CF:09,14,F0.67,09. BE 
55165 DATAFO 
53114 DATA32, SD, OR, CF, A9. 20, A8,00,91,FC,84,FC,A3.07.85. FD. A2.66, 9, 650.91.57,.31 
55123 DATACA, DE, FA, AD, 83, 0F,C9,91,F9,33,AD,00.CF,19,59.81,03,A8,F6,03:3D,8C, CF 
Ssaj2a DATAZI.BE,C4,AD.BE,CF,12,69,03,5D,@E, CF. Ba. 03,46,47,03. AD, 6F,CF.C9.03:F0 
54135 DATASE 
55146 DATAEE: GF,CF,40,47,03,A9.F5,30, 8E,CF,40,47,03, AD. 80.0F,329.E9.81:F9,83.9D 
55145 DATAST 
59155 DATACF, 29, 88,04, AD, BE,CF, 33.62.93, 8D,BE,CF. 99,02, 40,47:03, AD, GF.CF,C9: 82 
Sa153 DATAFS,S6,CE,OF.CF,40,47,03,A9. 0A, 5D,8E.CF,40,47,03 
Sa178 DATAHE,6C.CF.AB, BA,ES,083, BO, 62,95, 17.A9, AB, 91,F0.98,.33,E9.258,R98,599,02.B0 
S2175 DATAGE j \ 
Salsa DATACS, FD, 8,23, 89,28, AA, 40,93.04,99, 28, 91. FC,84, FC, AB, GR, AR, FF,E@.28,F@ 
59125 DATAG? 
551295 TATA3F,55.31:33,C9,19,F5,59 
2259 DATAAD. GB. CF,C9,45,38,601,69. AD, 19. CF, 18,63.89,80. 18, CF. F8,61.£8, AD. 11:CF 
59214 DATA13,89,61,3D. Er CF, E2,01,69,EE,12,CF,68 

23 DATARD, 14, CF.C9,03. FR. 2 EE. 14,CF,69,A9,81,2D,14,.CF.EE,15,CF.AD, 15. CF 
DATAC9. 21. Fo. 1E.CH, a2 2E.03:93,F9.33,9.94,5D,15.CF,R9,E?,50,5C0.32 
DATASEN.SD.22. 2, eo: SD, SE. 32.80.8 DESEr EN A?,E? al a FF 
z DATASD, 58, 22.90,5 A: 3, Er,S [© 3.32,8 ‚59,2 32, A Q,FF; 2D.5R.3 ED: SE: 32 
DATAEO.A9.ET En. I,SE. 22.92 \FFJSD, SC; 32,20,50,32.60 
DATARD. 30, 10,09, 6F,F8.91.69.R9.05.09.04, Fa.F2.40, 30,059. # 


n 
3 


ET) 


Do) 


REM >>>>> SPRITE DATA SISSCaKLTe 


u 


- e 
2,2,255, ‚128; 2,858, 1 


; DATA3.24,192,3, 6% 


GE } Raul 
DATA. 69.0. 8, 126, 
3 


IATA31.213 5 
DATE12.25.192,1 f 
DATA3,9.59.90,0, 12 R 


Dr 


a Bu ER Da DR EB RE ER DE ER E 
(UNE) 


5) 

ET DE EN 3,28, 2 
sasas DATA 7.255, 
Ssag41E DATA9, ‚©, 25,8 
SAFE 2,28 
Sad? ‚299: ob 1.22: 219,58 
Sat 1,2% 5:23.09, 125,8.0. 125,8.0,59.0.0,€0.0 
sa4se DATAB. 24 ‚132 Be 192, EFL- 58, 1322,3.24, 132 
Ssa455 DATAB: 15, 4. 24,0 254,1209.3,233,203.31:139.176 
5470 ae i 13.52: er: ‚1: 209,24, 1,123, . 3,91.22€ 
Sad 7,2065,2 133.8.18.4. I Par 200 SD 5 Pc Fu pr 
aan: 
as! 
sasas BEN >>>D>Z HE OKARRK. GENERATOR SS 
sasar 
Sa59> Sa5a3 DATA18.2.2,2,8,8, 78. 
sa515 DATRL.ER. BE, 25,93,93,922,98,8 S321a DATA1L1:©8,88, 72,128 az, 
SaSza "DATAZ.124.36.,62,59,59.50,1265,8 easza DATAI2,E4,54,64,96, ‚128,4 
56522 DATA3, 128,655, 654,968, 95,35,125, 0 Sas3a DATALS, 192, 20.865,92 72,99,0 
55544 DATA4, 125,34. 24,50,56,59,1265,8 ' Sas4a DATAL4, 114: 74, 74,19 136. 192,0 
Sassa DATAS.126.64:64,129.96,96,126,8 Sa6ssa DATA1S,128.88,55,28. 38. 38. 126.0 
saaed ne er SasER DATA18.125:85,568: 126,38.96, 35,8 
59574 DATA7,125,86,64,119.98,99,.126.8 SGE78 DATAL?,128.85,56,98,198,192,122,0 
saseg DATAS.EB.E6.66, 126,58,58, ‚98,9 Sassa DATA1S.126,65,68, 12%, 109, 99.39,9 
SG590 DATA, 18,15,18.24:24,24.24.0 Sg553 DATA1L9. 128.,655.54: 128.6, 70,126. 0 
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4 DATAZG.124 


- 


Ü 
Ay 


Dun Eur ger 
1a a Tı 2 IT 


3 DATAZ1,5 


u. 


IT = 


IATASa, 
DATAS1.&: 
LATAS2, 54.5 
DATAS3.62. 3 i 5% 
43 DATAS4, 125.84 
3 DATRSS. 125. E68. 
DATASS. 69 ‚36,6, 


Ta Ps CT FE ET 


5: AL -9 12 


24, re = 


‚24,8 


az [5] 
124. 98,98.98, 15) 
‚60.24.24, 24, [5] 


25 ‚36, 36, 126,0 
SF 
‚126,12,12.0 
r2,125.8 
26 38, 92, 125,8 
24,24,0 


.58.58.126,0 


IATAST, 126, Er 126, 5.5.126,0 


DATA?2, 254, 235,255: 253 
DATA74, 127 
DATA1?3. 2: 


5 A 
; . a,122,84,64,121 
136,143, 143, 122,12 


: DATALTE. LEE 
DATA1?3. 143 2 135 


ee nee nem 
‚295,25 Pr; 


‚259. 295.259, 299, 295,299,255 


»15,13,243,243.130, 130.243 


be ne 


3, 72,207 


7,207 


be 24,3 39,393 2: 32, 115 


I ,9, 3,201, 
IATA1?S.2 
LATAL?P. 
LATAL? 
E29, 127, 


291,7 2 
146,145, 147.147,145, 148. 
785 [8 2,207, 2a? »69,65 zu 27 

43,.144.144,147, 147 

127, 127, 127,12 


Er 735 Zar 
243 


‚145, 148,243 


‚127, 127,187 


254,254, 254, EIER 
3 DATA2A.127,127,127.31.21:127, 127, 127 


TATAL?S 
TIATA1E: 
DATRSI,S 


ee ee 5 
7,73.79, 201,201, 
33,299, 299 255,28 S5.28 
',204,51,51.9,0,09,0 


pa DATA31.13, 12,3, 3,12, 12,8 


2a DATA-1 

23 DATA" 
3 DATA" er a. 5 
> DATR SE ee" 


DATATTE 
DATA" MER: 


"a BaMHas 
[ne 


FAZTEH BELTS 
Aal " 


u N " a 


Horseguard 


für den Gommodore 64 


Programmablauf: 

1. Laden des Vorprogrammes mit LOAD 
von Cassette bzw. LOAD ”"HORSE- 
GUARD 1”, 8 von Diskette. 

2. Nach RUN wird gefragt, ob das Haupt- 
programm von Cassette oder von 
Diskette nachgeladen werden soll. Nach 
entsprechender Eingabe werden die Da- 
tas für das Maschinenprogramm und für 
das Musikprogramm eingelesen. Dann 
wird das Hauptprogramm automatisch 
nachgeladen und selbst gestartet. 

Nach dem Einlesen der DATAs für Sprites 
und den neuen Zeichensatz, während- 
dem ein Pferd über den Bildschirm läuft 
und eine 2-stimmige Version von ”Oh, 
Susannal” ertönt, erscheint die Anleitung 


38 


für das Spiel: 

Sie müssen versuchen, mit Ihrem Cow- 
boy möglichst viele Pferde einzufangen. 
Hierzu steht Ihnen ein Lasso zur Verfü- 
gung, das Sie nach rechts oben, rechts und 
rechts unten werfen können (Drücken 
des Feuerknopfes und des Joysticks in 
die entsprechende Richtung). Es wird der 
Joystick in Port 2 benutzt. Um das Spiel 
zu erschweren, können Sie Ihren Cowboy 
nur in der linken Bildschirmhälfte bewe- 
gen, und zwar in alle Richtungen, auch 
diagonal. Am Boden liegen außerdem 
noch zwei ausgebleichte Rinderschädel, 
bei deren Berührung Sie eines Ihrer drei 
Leben verlieren. Sie verlieren auch ein 


Compute mi 


a 
1 ale 


READY ” 


Leben, wenn Sie eines der langsameren 
Pferde, also die, die nach links lau- 
fen, berühren. Alle 500 Punkte wird das 
Spiel schneller, das insgesamt 10 ver- 
schiedene Geschwindigkeiten (Levels) 
hat. Zur Punktezählung: Um ein Pferd 
einzufangen, müssen Sie es genau am 
Hals treffen. Dann gibt's 10 Punkte plus 
die Entfernung zwischen dem Cowboy 
und dem getroffenen Pferd, d.h. je größer 
der Abstand zum gefangenen Pferd ist, 
desto mehr Punkte gibt es. Nach Verlust 
aller 3 Leben kann ein neues Spiel per 
Knopfdruck begonnen werden; jedes 
Spiel beginnt mit der niedrigsten Ge- 
schwindigkeit (Level 0). 
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VÖRFRÜGEAMM 


REM ERFEEEFEFEEFEEEEEEEEEF 


FEM # # 
REM # HÖRSESUARO - YÜÖRPRAGRANM  * 
REM # * 
REM KeKenReenKEKERReREE ne 
REM # 

REM # “C> 1354 E77 A. KHIPSCHILD n 
REM # 


REM MINE 


FRINT"IMMON SCHHSSETTE ÜDER SDMISKETTE NACHLADEN 7" 
POKE135,8:UALT138,1:GETDYE: IFWSCH "DC" AHDDYECH"D"THENII 
IFIY£="C" THEHDWE="1" 

IFDW$=" D" THENDYE="8" 

‚FRINT"MEEITTE WARTEN, DATAS WERDEN EINGELESEN I" 
FÜRA=16354T0154258: RERDE:C=C+E: POKER. B:NEKT 
IFC<>241525THENPRINT"FEHLER IH SPIELFSM. -IATAS" END 
FÜRA=20450T021438 RERDB : D=D+E:FÜKER. B:NEAT 
IFD<>F241LZTHENFRINT"FEHLER IM MUSIEPGM. -DATAS" :EHD 
PEIHT"TIeSFT43, 1: FT044. 16: PO42365, 8: HEW" 
FEIHT"MALT"CHRE 34" HORSEGUARD ZICHRERSEN" "WE; 
FÜRI=S5TOS:POKESS1+L, 13: NEXT 

FÜRES3T, SZ: FÜRERSS. 213: PÜKEE3F, 53: FÜKEE43. 13 
FÜKE12S: 1E:EHD 


DENVER em NmHÜIBCN 


REM FEFFEELEEEFEFFEREEEEIFEREEEIFEFEE 


REM # # 
REM # SPIEL-MASCHINENHFRÜGRANNM * 
REM # # 


REM FELEFEEEFFEFFEEEFEEF FERIEN 


73,393, 132.,249,3.32.43. 70.169, 255.141,37:192 
245.23:.163,8,141.1.192,173.259,7.2801,242 
3,225, 141.259. 7,233,1.192,234,173.3,132 
4,234, 17 er 4, 122, 241,18. 209,5, 189.4,141,4. 132 
32,45,65, 76, 223,64:.0,0.,0,50,169, 224, 141,2, 220 
‚169,259, 141,2. 224,173,2,132:41,1.208,3.32,165 
zu »‚2,22,131.64, 173,2: 132, 41.4,205, 3.32 »137.54 
»3:32,213:.64,.173,2,1932,41: 16.205, 3,32.0,64,96,8 


DATAZ, 123.5 


5,25, 233, 1,141.9. 269, 98,9,0,173,9, 208.201 
ee 2 


Sg: 35,0.0,172.4, 208. 201.25, 2409.6,56.233 
4,203,201.92,2944,5,24, 1545.1.141.4,209,95,0 
'5.169.4,.141,5,192.173. 208,4, 261,73,205,5,163 
za 


S Da u Zu 


[EEE TION BE ea Ein. Ne 
ın or mu. [le 


WOCHE CE ENTE EV ReH Er DZ LBS AR DR 


AT A A 


1.00.203,9, 162. 114, 76,23:659;,173.209,4,2601 
639:1659.79,162,8.157, 209, 4,157,72,7,222,224 
2.234.173, 250,7.24.195.9. 201,251, 205,2, 169,243 
E 153,251. 7,24.105,1.291,251.298,2.169,243,157 
r 12,7,232. 224.4. DaB. 236.234. 152.9,133,6,192. 208, 103.133.32,192,197 
IATAS.132,173:15.293.651,16,192.141,64,2.234, ni 63 132,234, 203.91,2594 
DATAB. 203.173, 64. 3,240,62,139, 6,298,201, 34,209, 72.596.169, 255.253,16, 192 
> DATA141,64,3.173,15,208,49,694,3, 141, RER 
5 DATALFZ,224,: 234,3 232, 2590,659, 224, 234,27 4,224, 172,27,212,2601.1907,493, 243,201 
IATA13E. 249,245. 176,243, 157, 7,295, 76,199.65.2.1933, 6.208, 201,255.209,3 
DIHTA173.185: 208 5.192, 141,18. 205, 75, 240,69. 0, 222,6, 208,173. 64,3,203 
* DATA2,153.6., 208.293, 28,765.141,69,0, 129,6, 2083,203,13.56, 169, 255,253, 1E 
DATR1S2. 141.64, 3; 173,16. 248,45,64,3. 141,16, 208, 234, 232, 232, 224,10,249 
35 IHTAZB.76.51:89. 234. 24,173. 27, 212,41,3: 199, 1,197,6:192,1597,32:192.96 
Ze TEEN en 222,6,132.232. 222, 224,10,208, 247,234, 32,128, 71,234, 234,234 
4,224,224,234,189,165,132,141.64,3,173, 16. 293,459.64,3. 248 
159,6. 23.201.9,48,6: 169, 125,197, 7,192, 234. 76,144, 70.234, 234,234 
+ IATAZE4. 234.234, 234,234, 234, 234, 224.234, 234, 224,234, 224,234, 234,234, 234 
LATAZ234, 234,224, 224,234, 234,234,234,234,234, 234,234, 224,234, 234,234, 234 
LATAZ34,234., 224.224, 224,173:48,192, 201.8, 208,87, 169.247, 197,249, 203,47 
LATA169. 243, 197.298. 208,41, 160.0, 169,32. 149. 247, Zu, 145, 247,173. 27,212 
IATA41, 254, 201.28, 240.247, 176,245, 170,189,64,192.133,247,183:.65. 192.133 
+ DATHZ43,189.98.132,.123.249,159,37,132.133,259,1659.0,141,49.193.595. 1659 
‘ DAIAZ4P. 22.1.1323. 247 5 165,243, 233,0, 133, 243, 169,0,169, 72,145. 247,200 
IATA153, 74,195. 247,209, 163,22, 199, 247, 235,43: 192, 224, 172.49, 192. 201,9 
" DATR2U3,37,1659,251.197.252 08,47, 165,252, 197,254, 208,41, 160,8, 169,32 
35 DATA149. 251.200. 1459.251:173.27,212,41,294, 201.25, 240. 247,176.245.178 
= LATA139,64.132,133. 251,139,69,192 »133, 252, 193.96,192,133:253,139,97,192 
a DATA132,254.159.9,141,43,192,56. 165, 251,233, 1,139. 251, 165, 252, 233,0, 133 
DATAZS2. 160.0. 163, 73.149, 251.200, 169. 74,149, 251. 208, 169, 32.149, 251.233 
DATA43, 192.234, 1659,.80, 141.31. 288, 173, 31,205,41,4.248,7.169,2.141,30,3 
ar 9,9:9,0,2:.9.0.0.0,0.159,111.141,3.192,173,2:.132 
t 2 1 3,2,132.41.25, 244, 77.173,2,192,41.24, 295,3. 76,248 
LATHBT, 76, 167,67; 169.254, 141.243, 7,24. 173,4, 203,105. 21.141:2,208,24,173 
& IHTAS. 203. 105.7,141,2,2 2, 24,173.4: 203,195, 24:141.0.205.24.173,9.208 
Dane le 14 Ze 3,3,141.51:192:1659,8.141.592. 192. 295.9,4,0.163,0 
143 LATAl4l.3. 12 Ar lea.2s2, 141, 249, 7.24,173:4, 208.195, 15; 141, 2; 2u3 
142 DATAIE, 172.9 32. 141.3: 208,24,173:4: 205, 105. 13.141,0.208,965:173 


10. Oktober 34° Compute mib 


DEN 


IN BL 


EEE 
URL Bin 


OL A Ale ln 


Er} 


D 


>» 


a DATRS. 202,5 
DATAB.G,0 
IATASS. 17; 


DATALSS 


a. 1,203,163,1,141,51.132,1693,8,141.52,132.35.0,9.0 
‚2,2.163.253, 141.243,7,24.173.4. 233,105,24,141,2,203 
238, 5.141,3,203,24,173,4: 205, 195,22, 141,9.203. 565.173 
‚141,1, 203.183,2.191,51,132:169,8. 141.52, 192:95:0.8.0 
.4.4,0,173.52.192,201,2,248,3,76,224.68,169.8,.141,52,192 
DATA173,51, 192,201, 1.298.3.76, 36,68,173. 51.132,281.2.208,3.76,123:68 
DATA173,51. 192. 291.3,203, 1802,76, 150.658,0,0,0,56:173.0.203.237,4, 208,201 
IATA=20. 205.2, 76,192,63, 238,0, 203, 206.1. 203, 76. 224,63,0.0.0,9.0.0,0,0 


IATAS, 2083. 23 
’ 


> DATAS.,S55.173,0,202,237,4, 208, 291,43. 208,3.76.132,63,238,0, 208, 76,224 
> DATRES. u :8,0.0,2,0, a,d, a, 2,9,8,56,173,9,208,237,4 4,203, zul, 36,203, 3 r5 
2 DATA132.69, 238,8, 208,233,1. 208, 76,.224.63,9,9.0 3,2,0,9,8,8,169,8, 141 


IATAa.205,141,1,202,141,3.132, 141.2, 208, 141, 3208,96. 0.,0.0,8.0,0.8 
IATRS.9,0,9.0.0,152.5.173:16,2038,61,165, 132,221, 168, 192, 203,3. 76, 70,63 
DATA153, 6,283, 209.0, 205.144,3. 76, 78,63,55,173.0,203,253,6.293.141,54 
DATA2:173,64,3.201:15.144.3, 75, 73.659,169,1,285, 54.3.144,3, 76, 79.69,232 
DATA173,1.202. 221.8. 208, 144,3, 76, 78,69, 56, 189,6, 208, 237, 1,208, 141,64 
DATA3.172,.64:3. 201: 19.,144,3: 76, 79.69,169,2,205,64,3,144.3.76, 70.69.76 
DATA2S. 82,232, 224, 10, 244,3, 76, 226,65, 233,32, 192.96.%,9,8,0,0.0.0,8,0 
DATAG.2.0,0.0,252,142.53,132,.132: 74.170,132,42. 203,141, 44,208, 169,251 


3 DATA141.243, 7. 163.8, 141,9. 208,141, 1,2@8. 141.3: 192, 174,53, 192, 189.6, 208 


DATA141, 2.202.153, 7.,295,141.3.203,169,1.141.54,132, 163, 255. 141.537, 192 
DATA141.58.122,32.144,71.234,234,234,234,234,224,234, 234,234, 234,234 
IATH234, 234,234, 224, 234,234, 234,234, 234. 224,234, 234.234, 234, 224.234, 234 
DHTR234, 234, 234, 224.234. 234,174,53,192,173.21.208,93,16.192,141.21,298 
IHTATE.123,79.0,0.0,173,539.192, 208.3. 76, 259,693,173,54. 192.240, 3, 76.247 
IATASF.163,1.141,54: 192.173, 2.208. 249.6, 205,2, 203,76. 247,59:32.48, 78 
IATAYE. 250.69,0.206.54, 132, 173,2.192.41.16.245,5.169,8,141,57.132,163 


IATrRi4s.1 27.172,58:132,123:93, 173.59. 132,132,99,169,0.133, 198,133 
LATAIELSE „zz M,1392,1: 1.240, 7.197,24, 4,2 76,31» 7a. 76,112.78 
IATAu, [57 153,6 2,174,53,132,163.8, 1537.5,229:173,27 ‚212,201: 107 
DATA43,2 „za 245. 176,243: 157.7,203.173,27,212,41,3,195.1.157 
37 3,255:141.21.285.169,9.141,40.205,1597,7,192, 141 
„141.3. „Dr ‚122.242, 160.0. 200. 205.293,232. 208,248, 78,0 
DATA7L,R. 2,9, 169.0,1° ge Sr: 7,208 ,7 36.49.0.,4,0,0:.0,1652.2,133.7.203 
IATHEHS, 23.4, zun.2 2,221,.13,45,17.765, 241, 70.56 
[2757 r »74,172,.16,203,651,16. 132 ‚248 
41, ge an IE LEER, 237,4, 208, 201 
[2 au 21:48,3:76,241.78.153 
246. B, 00, 293) 75 1UGLCS 


23 I .125.153.8 ‚132,189,123,141 
os, 10: ee ‚141,60, 192, 169,00, 141,1,212,163 
‚141.68, 132 
173, 60, 132, 261. 3 ri 

141.4. iz, 75.112 


PE 2,71,169,5 ‚141,68. 132 

4. E4, 173,27, 212,201 

‚56,1 : Ei ee en 
341 
132,: 153 
132. ‚Ir; 248. 
DATALT“ Er 71,2 
DATRE=1 ul. ‚il: 


IHTAFA.SE 


REM Er ee 


REM # # 
REM # MUSIE-MASZHLHENFRÜGRAMM # 
FEN # * 


REM FREIE 


153 ‚153 
Data. 141 12.212. 
= DATAlE 17, ‚15.141 
26, 53.233 
r „En 33,178 
a,14l. EZ 2,200, 208, 2, 23% 245, 177,247, 141.1: 212, 209,208, 2 


»177.247,133, 293, 288.283, 2,239, 243.132,251:165, 143, 141; 4,212 
254: 153,254, 208.44.159.2.141.11,212. 164,252, 177.249, 141,7 
B ‚259. 177,249, 141; 3, 212.200. 203.2.,239.259.177,243 
Bere a 169,143, 141, 11, 212,224, 786,49, 224 
] > 33% 247: 159,00, 123,243,159,65 
= 33,293,123, 254 
en ae 


ONE RE DEE FE 


EEE TENDOI EN 


SE, 50. 513.43,28,207 
2,29. 24.207,34:20.18 
»32.24.1398.:39:20.39 
213.43,.28,219.43,28 
3.138.533.248.133.53 
34:.28.193:.39.68, 207.24 
5 .29,33,52.20.219.43 
:13.42.20.19.39,268.19,33 
22.250, 42.132,39, 28.33 


\ 
I: 
& 
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& IATRS2:.28,2 

7 DATA43,20.2% 
IATA34. 10.18. 

DATH2SI,255 


24,219,.42.20.207,34,24,13.23,59.297,34.12.13,33.10,219 
.29,39,52.29,133,58,29.33,52,29.219,43,24,297,34.20, 207 
",12,219, 43,29,213,43,28, 18,39,20, 13,39, 24,207,34,150,255 
.2u 
Z 


143.17,20.29,26,20,237,21,29,20.25.28, 183, 12, 20.24 

.4,9,24.163,.17.2%0.20,26,249,237,21, 20.20, 26.20.1377 
REN 26.29.237,21:20, 20.26 
Ne 0.265,49, 20.25.40, 123.17,28 


237 


39.26 

zul 

‚2, 

1 ‚Ba 

9,23,29,207 23,2 

24.20, 20, 2,2 2,21 

25. 1603.17. 20.20.26 E7,s21.28, 
2,26, 16. 237,21, ‚18.153,17, 124.0, M,K, 


63, 234,141,21.2,35.396 
FEHI'T. 

HALUFTPRÜGFARK 
REM ##+## HÖFRSEGLUARL 
REM we Ch 1354 Er A. KHIFSCHILD 
ATOF4z2:READA: B=eE+H:PÜKES31SE+ I. A:NEXT:FEN Rates 


THEHPRINT"FEHLER IHM DATAS ZEILE 6-2" :END 
20450: REM Er las a 


} zu Pk “> 3251, 245: PRINT" FORESS. SE 


NL Am 


5 FRIHTITAE 
11 FriH KYHELK) "il ! r 
2 FRINTIHRECFI" II 
13 FRINTTRELFI" I | 
14 PRINTTABCFI"II II 
15 PEINTTRECFI" 4 
15 PRINTTAE(?:"A ne; mn mm 


| 


17 FRINTTARE FI" III ol Im | 
158 FEIHTTABE FIT TI TI II 
13 PRIHTTABE FT, TI T I 
2a FRIHTTAREKFD" III TI TA 
21 PRIHTTRBE ON UI et 
22 FRINT:PRINTTREELL2" SET A. KHIFSCHILD 


23 PRINTFPRINT:PRINT:PRINT:PRINT 

Be) PRINT" = EITTE WARTEN, DATAS WERDEN EINGELESEN.S" 

a FÜRA=BTIJEE: FÜRFSÖTÜIEZ: RERDE: POKE1SA4EHAtEI+E, CI D=IHC:NEZTE-R:REM Sam) 
"ÖITHENFRINT "FEHLER IN SFRITE-DATAS" :EHD 


1: FÜKEY+1. 136: POKEV+1E. DB: FOKEW+3S. 15: PÜKEY+Z1.LFÜREZ040, 2359 

BBuEaSSp EU HEN EINTESEN! 

'RI=ETO13:READA: D=eD+A:L=AANDESSCH=INTCAFEIS) 
1E+1#2,.L:FÜKE4PZ17+I#2.H:NEAT 

013: RERLA: Tel+A:L=AANDZS3:H=1INTEAEIEN 
3+1#2.L:FÜRE4FZ4FH TE. H:HEAT:REM PFTN DEPKNÜCHEN POS IT TONEN! 

:THEHFREIHT"FEHLERIH DATAS ZEILE 21009-210905" END 

REM ELLE 

Ko a Ba CE Ja HS HT NENPOFT, VORIHELEN I OESCHEN 

FEHM Mana] 

4. A: FOKESES. MS: PÜORESE 


ED: FÜRES57,08:EEM Sad 


Rn FE aaa 
S PRINT": SOTC2aE 
2 
27 REN PR] TE-URATHS! 
32 
129 DATA2,31,128.0,7,28 ‚116, B,23,2 al, , 35,255 3 
1a1 es E20. 22 3,258, 192,5 7,132, 225,192: 
162 DATA 5 = 144, ‚a 
118 15,2 3,192 
111 32,1. ‚131 
112 DATHSE. br 123, "128 5.96 
113 1ATAR, 16,0 
124 a: 254,2323,255,2311 
121 VATALS ‚143, 244,5,131,245 
== IATHS, ein 2,4,2,8 
& DATA 


10. Oktober 34° RE mib 


4] 


2 DATA124.8,142, 


A LT fi A Pi 


nr 


NIT BL AO IN EL Ga Te Ta Pe EIN TON N 


INIEELLAL LION BRLLL LER LA LOL I GI LE LI LO DC LI LO LO GE FOTO PO PS PS IN PO PO INFO AU Je Pa To AO 


DATRB, 31,15 '6:4,6:69,%9,12,122,0, 23,254, 8,53, 254, 127,255, 247,211, 255,243 
DATA13S, 259, 224,135 ‚255,224, 7,255, 224, 7,299, 224,7,199,224,15,3,248, 38 

DATA, 152.124.0; 142, 216,9. 195, 144.8, 65, 43,0.55,32.8,64,32,8,64:48, 8,96 
DATAB.31,156,8,6.60.4,12.122,0,39,254,8,651, 255,129, 255. 243, 255, 255, 225 
DATAZ43, 255. 224.57. 259, 192. 3.259, 192, 3,259, 192, 15, 195,192, 15,1, 224,25 

DATF1,48,112,1,16:224,3,3:192,2,12.0,6,6.8,12,2:8,8,1,0,8,1 

IATAS, 126, 23.8.24.60.8.24,122,.0,68, 254,8, 123, 247, 7,255, 243, 63, 255,225 

IATA115, 259,224. 99, 255. 224,3,239,192,3.131,132.31,139,64,20,1,64,20,1 

IATAS4,54,3,64,34,34,64, 225,52:64,6,9.64,4,8,64,0,0,64,0,0,965 


a DATA. 63,24.0.12,124, 2,24,244,8,61.254,8,123, 254, 7,255, 239,143, 255,195 


IATA29? , 255, 192,259, 255, 192, 79, 255. 128, 15. 259, 128, 7,191, 128,3, 143,0,3 
DATA131,12 28,6, 1, 192,31:3,96, 11,158, 32,4:287,224,4,388,8,4,38,9,0,16,0 


3 DATRG,2,50,0,0,24,8,0,60,8,%,116,8.0,254,2,1.254,1,255, 243, 95, 2559, 248 


IATA2S1, 259. 224) 227,259, 224,3, 259,192,3,239,192,1,231.192,8,225,192,1 
DATA169, 132.3, 32.224.1, 168, 176,80.241,144.0.39,144,8,75.112:8,0,8 
IATRR,5,56,0.0,124,0,6,244,0,1,259,8, 3,246, 15. 259. 226.63,255, 192,127 
DATAZS5, 132,95, 2559, 192, 223, 2559. 192,143, 153, 192,135. 143,192,1,131,96,1 
I LRIRENS 29.168,3.244, 144, 0,56, 176,%,67,168,9,32:32,8, 48,96,8, 16 
IATAS 
DATR®.9.0.0,8,24,0.0,124,%,1,252,8.3,259,111,255,.254,223,235,231,223 
DATAZSS, 195,153, 255.132, 159, 255, 128, 15,191, 224.159, 193. 248, 5,131, 248,5 
 IATA122.44, 12,122: 102,2, 132, 194,3, 103,129, 12,45, 2.4,24,2,4,0,9,2,8,0 
IATAA,0,56.2.0,124,0,0,244,123,1,294, 128.2, 294, 259.259, 231, 179, 235, 227 
DATA?S, 255,224, 31,255, 132, 31,255, 132,31, 255, 192,31, 15, 243, 39,8, 109,54 
DATAB.S2,36,8.23, 109,0, 12, 76,0.5,284,8,15,124.0,1,131,8.0,65,8,0 
DATA@; up 23, u, 3,64, SB: 122. Ba. 24. a,1,294. 127,239, 247,211,2599. 243, 135 
DATRZSS5, 224, 139,25 Fra) =,224, 7,255,224, 7; 157,224, 19,3: 240, 39,0, 152 ’ 
zi18. 95,144. 4,29,43,0,69:.32,2:.64.32,92,64,43,9,9€ 

. 22,8, 4,254,0, 1,25%. 123. 299,243 ‚253, 255» 225,243 


IATA3.40,25.0.0 


IATA=ESS ‚224,6 ‚132. 3,255, 132,15.125:.132,19,1,224,23,1,48 


DATA112,1, 15,2 2,12 »B, 5,6:8,12:2,8.9, 1,8: 3,1 
IHTAE.0,23,0,8 ‚a,a,.204,%, 1,247, 7 ‚299, 243,63, 2595. 229, 1159, 259 
IATA224, 39, 25995, 224 ‚122,3,191,192,31,139,64,28,1,64,20,1,654,34,3 
IATAE4, 34, 34,54,226, E60: 4,4:.64.0.0,64,8,50,95 
5 DATAA, 9,24, 2,8,124,0 ‚a,244,0,1,254, B, 3,2534, 7,255:239, 143,255, 195.207 
IATA255, 132, 259, 259, 132, 79, 255,128, 15, 255, 123, 7:191: 125,3, 143,0,3: 131 
IATA123,5,1,132,31,3:36, 11,199, 32, 4,207, 224,4,25,8, 4,50,%, 2,15,8 
IATAB, 6, na, n,24.0,2,20,0.0, 115.0,9,254, B, 1.254, 1,299, 243 ‚7,299,248, 11 
IATH2SS. 224, 11.259, 224, 27.2959, 132,27, 239,132,1,231,132, 3, 99,3 26,38,1395 
DIESES 156. 224,19, 3: 123.8,9,0.8:9,0,4,0,0,0,0.85 
»32:9.0,54,2,0,125,2,1.0.0.2.0.0,4,4,0.8.0,.8,16:8 
123,2,1,9,2,2.0,9,4,2.0.5,0,0,10,8,9,32,0.0,64.0 
5,2,0.9,2.0,2,9,2,.2,.9,0.0,.0,0,5,0,0.0,0,0,2,259,255 
2.2.3.2,9.4,.8.0.9,0.2.2,2.2.0,0.9,3,0.08,0,0,90.8 
2,2,49.16:9,50,8,8.0,4,0,0.2.0.2.1.0.8.2,128,8,8.64 
3,9,2,8,4,0,9,2,0,82,1.0,2,0,1253,2.9,54,0.0,32,0,8 
2.0.0.0,2,2,2,0.2.257.9,3.174,192,14.170.1765,593,17%.172,234 
DATALTB. 171. 234.178.171.234.174,171.234. 170,171, 259,170, 1 71,58, 178,172 
IATA14, 178,176, 3, 178. 132.8, 299,8.60.9,0,0.02.8,0:.9,0,8,0,4 
FEIHT'"MaH UÜRSEGURRD $ « 


ERLN————=—— NZ " 
FEINT" SENSE 54 Er A. KHIPSCHILD “ 
IFLI#Z=1THENFEINT" MAH  ":GOT0330 
PREIHT" MEH ":50T0335 
FRIHT"MASOTTTTTITTTTITTTITITTTTTTITTTTTTTTTTTTTTTTT"; 
FRIHT"FTTTTTTTTITTTTTTITTTTTITTTTTTTTTTTTTTTTT"; 

FÜRI=8TÜ13:FRINT"S ar 

NE=T 

PRIHT"SSTTTTTTTITTITTITTTTTITTTTITTTTTTTTTTTTTTT"; 
PRIMT"FTTTITTTITTTTITTTTITTTTTTITTTTTTTTTTTITTTT®" 

PRINT" elaisia[eislelelalec EEE EHRE ERNRREH "":PFIHT' BIRIIRIEIRIEI, Sa" 
FÜRI=HTO4: POREZUF43+ LT. 243: NEAT : PÜKEZE4 , 255: PÜKE2B42, 235 

FÜKEW+4. 59: PÜKEY+S, 1599: POKEW +16. 2: FÜKEY+3A.MPÜKEY+S1, 0 
FÜRI=HTÜ3:POKEW+L.8:NEAT 
FORI=1T05:PÜKEY+4+ #2, 39: PÜKEY+S+I#2, IHTCRNHDC 128393) +107 NEXT 
PÜKEW+41,3: POKEW+42, 1: POKEY+43, 0: POKEY +44, 15: POKEY +45. 12: PÜKEY+46, 8 
PÜKEY+23, 7: POKEY +48. 2: POKEY+3S, 2: POKEY+23, 1: PÜKEY+2L, 2595 

FÜKEZ47, 269: POKEZ43, 5: FÜKEZ43, 134 FÜKEZS2, S:REM WARE ER IRR 
FÜKEZS1.38:POKE: » 7: POKEZS3, 242: PÜKEZS46:FEM BAR AHIEE EEE 
FÜRI=H8T04: PÜOKE431SS+ #2, INTCRNDE1D>#4) +1: PÜKE43134+ [#2, PEEK(43158+ [#23 :NEXT- 
FÜRI=1T0S:POKE43155+1$2, 2 17 IHr2) NEXT 

SI=s4272: PÜOKESI+14, 1AM: PÜKESTI+1S. 1ER: POKESI+24, 143: PÜKESI+18, 129 

5] 10: FÜKESI+4.0:PÜKESI+S,8:POKESI+E.D 

?»PEEKSE4) :PÜKE43203, PEEKCSSS7 REM Sad 

>13, PEEK (2665) : POKE49214, PEEK (867) : REM LEVEL -SHEHT ER 

Sysilsdas:EEM UA ED 

FÜRI=1TC1 SAG: HEXT:PÜKEY+E1, 0 

PRINT" SIeteinielateietele Yo HAWYE BEEN HIT Er A "; 

IFFEEK 243) =1THENPRINT"HÜÖRSE,. " 

IFFEEKi343?2=2THENFRINT"SKULL. " 

LI#=LI#-1 


DC BE BE BE ET MT NEE RE No AT ELLE LET 


Compube mib 
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=>4 IFLIZ=68THEN?GA zuals DATA3.55.16,16,16,16,16.56, 

50 FRINT"BPRESS FIEE TO CONTIHUE" 20617 DATA1G,14,4,4,4,223.63,56, 

sla PORESESZE, 224: ISFEERCIS3282 : IFCIANDLEPSPATHENGLE 2a6015 DATA11,238, 72,90. 194,63,68,233, 
E29 PÜREIS3EE.2II 20519 DATA12,224.64.54,64, 66.65, 254, 
530 FÜKESS4. PEEK 492657): FÜKESSS. PEEK (49205) 20828 DATA13.195,193,34,63,68,68,233, 
240 PÜKE3SS, PEER.. 43213): POKESE7 , FEEK(4I214) zaa21 DATA14, 208,63, 1909,34, 78,68,228, 
5539 FORI=ATOS2:POKE4I153+H1. 8: NEXT :GOTO3ZU 25422 DATA15.96.53, 139.139, 139,.63.56, 
ras FORI=TÜSE:POKE43153+1, 0: NEXT 25523 DATA1S, 252,66. 665,124,64,64,224, 
718 PRINT" MS" TAB<1S> "GAME OVER" :PRINTTABG I TT—————— 2aa24 DATA1F,55:65, 138, 128, 145, 76,61,2 
728 PRINT"ARBFRESS FIRE TO START NEU GAME" 2ua25 DATALS.252,66,66,124,59,72,238, 
724 POKESE3EZ, E24: ISFEERR SEE) IFEIANDLSHZFOTHENF3E zaa25 DATA19,125,138,.128,124,2,139,25%2, 
740 PÜKESSSZ2, 2535:50T085:REM NAuaEidıan 26527 DATA=2O. 254,146.16,16.18:16,.124, 
330 : 20022 DATAZ1.233.63,69,63,63,63,56, 
351 REM Saas 265029 DATH22,238.63.693;63,.49,40,16, 
332 : zaa>a DATAZ3,238,63,63,68,384,108,65, 
1099 POKES2221,247:POKES2272,18 26431 DATR24. 233, 63,40, 165.49,659,238, 
1525 PRINT" TISMHÜRSEGURARD @ Br A.KHIPSCHILD"; 20232 DATR2S,238,68.49, 16,165, 16,56, 
1514 PRINT" . 22433 DATA2S:2394,132:8:16,32,65, 254, 
1228 FRINT"YERSLUCHEN SIE MOEGLICHST VIELE PFERDE" 26034 DATA4S.56,63. 138, 130.139,653.56, 
12034 PRINT"SMIT DEM LASSO EINZUFANGEN. 23235 DATA49,3, 24,48, 72,9,9,8, 


Pet a La cr a a Pr Fe Pr A 


1548 FRINT"NSIE STEUERN IHREN REITER MIT DEM Jür-" zaass DATASS,124,130,2.69,64,129,254, 
1552 PRINT"SSTICK IH PORT 2 IM LINKEN TEIL DES EILD-" 26627 DATAS1,254.4,9,23,2,138.124, 

1865 FRINT"SCHIEMS UND KÜENNEN DAS LASSQO NACH" 26935 DATASZ. 20,28. 26.63, 254:4,4, 

1870 FRINT"RMRECHTS ÖFEN, RECHTS UND RECHTS UNTEN" 26033 DATAS3. 294.123, 188,134,2,130, 124. 
18354 FRINT"SUERFEN (JOYSTICK IN GEMUENSCHTE RICH-" zu542 TATAS4. 124,139, 134,196: 139,130, 124, 
1234 FREINT"NTUNG UND FEUERKNOFF DRUECKEN?. zaa4l DATASS:254,2:,2,12:168.18-165 | 

1159 FRINT"MITASTE DRUECKEH" PRINT" “ zua42 DATASS.56,68,63.124.130,139,124: 
1119 FÜKE13S,8:WAIT133.1:POKE13S,0 20043 DATAS?:124,130.139,126,2,132,128, 
1129 FRINHT"IMEICHEN SIE LANGSAMEREN FFERDEN UND " zua44 DATA2S.49,125,168,124,42,252,40, 
11253 PRINT"MDEN RINDERKNÜCHEN AM BODEN AUS 1" zE45 DATA?E2.2.1,2:14,31,63,56, 5 
1148 FRINT"SALLE Sad PUHETE STEIGT DER SCHWIERIG-" 2ua45 DATA?74,8.5, 2409. 223,230, 200,43,16 
115@ FRINT"BKEITSGRAD. D.H. IA5 SPIEL MIRD SCHHEL-" zan4?. DATAF3:17,17:17:2559,17,17,17,17 
1169 FRINT"ALER. zaa45 DATASa, 34,34, 34,299: 3434,34, 34 
117a FRINT"RP.S.: SIE MUESSEN DIE FFERDE GENAU AM" 2aa43 DATAL14.653.693.68,2399.63,68,63:65 
1152 PRINT"RHALS TREFFEN. JE MEITER SIE YON DEM GE-" 2% 


as DATAL15, 136.136. 136, 255:136,135, 135: 136 
1135 PRINT"NTRÜFFENEN PFERD ENTFERNT SIND, DESTO" . 
za8 PRINT"RMEHR PUNKTE GIET“S ! 
1218 PEIHT"NENDRLECKEN SIE EINE TASTE UM Zu BEGINNEN" 
1228 PRINT" " 
1228 PÜKE133,8:WAIT193, 1’FÜKE1393. 8: RETURN 


13521 REN Ikea 


READA: IFA=-1THENFOKEY+21 0: RETURN 
FÜRJ=ATU7 : READE : POKEZ@48+M#8+J , B:Z=2+2. 2: ISPEEK(2848)+1 : IFI=243THENI=235 
PÜKE2948, 1: IFZ>338THENZ=O 
PÜKEY, ZAND255:POKEV+16, 27256 : NEXT :GOTO24008 
DATA. 69.66.1593, 161,161,153,66,68 
DATA1.16,40,68,124,68,63,238, 
20003 DATA2,252,66.66,124,66,66,252, 0051 DaTa-ı 
DATA3,62,65,139,123,123,66.60, 299398 : ‚ 
IATA4,248.68,66:66.66,69,248, 59551 REN WARWAHKEUINEREEINERLEE 


3 

u 

1 A Rn zu392 

z DATAS, 254,66,72,128,72,66,254:  Z1am DATR1343, 1383; 1423, 1463, 1593, 1543, 158%, 1623, 1663, 1703, 1743, 1783, 1823, 1863 
4 

5 


TO SR SE DI 
DATEIEN TE 

DEE RETTET) 
DENN EWR 
Die De ER NZ DR 


IATAS., 254,66,72,120.72:64,224, 21605 DHTR1304, 1344, 1384, 1424: 1464, 1504, 1544 , 1584, 1624, 1664, 1704, 1744 1784.1824 
LFITA?.62,665, 123,143: 139, 66,625 
IATA3, 233,69, 69,124.63,693, 233, 


NE AETEPIRG 
DDR 
Ze 
[a ae nz ee X 


Für Commodore VC-20/64 I so-zeichenkarte 


- fürC64 2— 
Speichervollausbau 40/80-Zeichenkarte 201219,— 
. Eprommer Vil (20/64 — 
für VC-20 4 hie Bus, ee 2716, 2532, 
\ 2732. Betriebsber. incl. Steuersoftware! 


Teachrobot 599, — N u 
6 Achsen mit Wegnehmer 32/27 KByte-Modul a) - Centronics Intf. (26/64) 169,— 
Nutzlast 200g (Bausatz) f Ersetzt 3+8 + 16 KByte oder 8+8 +16 KB schließt centr. komp. Drucker an VC's A 


a 4 in ei 1 Grandmaster (20/64) 79,— 
Fertiggerät 699,— kompakt in einem Modul! Voll schaltbar! Syreveired; Abk ) 


Interface Er = 10er Tastaturen: 
für CV-20/64 ER = Montage ohne löten 


:L 299,— 


r ROM -Modul an für A 
Recorderinterface recorder 2 EPROM'S-2716, 


i 2732, 2764 
lese A a en mit Anschlußkabel steckfertig mit Gehäuse Klaus Jeschke 


Inclusive Motorsteuerung! Sensationspreis! Hard , Software 
Info 3/84: 1,- Porto in Briefm. Im Birkenfeld 3n 
Alle Preies inklusiv Mehrwertsteuer. 6 Monate 6233 Kelkheim 
Garantie: Versand erf. per NN oder Vorkasse. 


Händleranfragen erwünscht = (06198) 7523 
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Programmablauf: 

Wenn man das Programm mit RUN 
startet, dann wird zuerst der SID initia- 
lisiert (resetiert), indem alle Register auf 
0 gesetzt werden. Nach der Dimenionie- 
rung der Felder und der Zuweisung von 
konstanten Variablen springt das Pro- 
gramm in das UP zur Begrüßung. Man 
kann diese übergehen, falls sie zu lange 
erscheint, indem man in Zeile 3 ”POKE 
2024,1” schreibt. 

Nach dem Drücken einer Taste erscheint 
ein Mini-Menü auf dem Bildschirm, 
welches abfragt, ob man das Spiel nor- 
mal starten. möchte oder den Spielstand 
von Band laden will. Arbeitet man mit ei- 
nem Diskettenlaufwerk, so ist als einzige 
Änderung in Zeile 21 die Zahl 1 durch 8 
oder 9 zu ersetzen. 

Nun drückt man entweder 1 oder 2. Hat 
man den normalen Spielbeginn gewählt, 
erfolgen nun weitere Abfragen: 

An dem Spiel können 1-4 Personen teil- 
nehmen. Gibt man aber als Spieleranzahl 
eine 0 ein, so folgt ein Demonstrations- 
spiel, indem 4 Computer gegeneinander 
spielen. 

Tut man das nicht, so wird gefragt, mit 
wievielen Spielfiguren pro Spieler ge- 
spielt werden soll. Hier sind Eingaben von 
2-4 möglich. Danach erfolgt die Eingabe 
der Spielernamen durch INPUT-State- 
ments. Dabei kann man den Computer 
beliebig oft mitspielen lassen. Man muß 
jedoch darauf achten, daß die Anzahl der 
eingegebenen Namen außer dem Com- 
puter mit der vorhin eingegebenen Zahl 
übereinstimmt. Sonst zeigt der Computer 
unten an, wieviele Spielernamen fehlen. 
Spielt man alleine so ist es wohl selbst- 
verständlich, daß der Computer mitspie- 
len muß, ansonsten Fehlermeldung. 
Wenn man dies überstanden hat, so wird 
das vertraute Spielfeld aufgebaut. Das 
Spiel wird durch den zauberhaften Klang 
der Big-Ben Glocken eröffnet. 

Hat man bei dem Mini-Menü Punkt Nr. 2 
gewählt, so wird bei Verwendung einer 
Datasette noch abgefragt, ob das Band 
an die richtige Stelle gespult werden soll. 
Wenn man hier etwas eingibt, nützt es ei- 
gentlich nichts. Die Abfrage dient ledig- 
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lich dazu, daß nach dem Eingeben der ”2” 
nicht gleich die Datasette losläuft und ein 
Chaos hervorruft. Nach dem Drücken von 
RETURN erscheint die Aufforderung 
PRESS, falls dies nicht schon getan 
wurde. Darauf werden sämtliche Daten, 
die das Programm braucht, geladen: 
Spielernamen, Positionen der Figuren, 
wer gerade an der Reihe ist, ob einer 
schon im Ziel ist. 

Bei der Verwendung einer Floppy läuft 
diese sofort nach Drücken der "2” an, 
falls sie angeschlossen ist. 

Nach der Big-Ben Melodie beim norma- 
len Spielbeginn wird zufällig ausgewählt, 
wer beginnt. Danach ist einer der runden 
Kästen weiß. 

Wenn man den Spielstand geladen hat, 
fahren zuerst alle Figuren an ihre Plätze, 
wonach der Kasten weiß ist, dessen 
Spieler an der Reihe war. 

Dieser ”Kasten” wird nun als Würfel 
benutzt. 

Wenn man jetzt auf irgendeine Taste 
drückt, würfelt man. Der Computer gibt 
dabei in schneller Folge Zufallszahlen 
hintereinander aus. 

Läßt man die Taste los, so bleibt die Zahl 
im Würfel stehen, die man gewürfelt hat. 
Nun drückt man eine Zahl von 1 bis4 und 
wählt somit die Figur, mit der man ziehen 
will. Die Figuren sind durch farbige in- 
verse Zahlzeichen dargestellt. Ein Spiel 
auf dem S/W-Gerät ist daher sinnlos. Der 
Computer läßt bei der Eingabe nur die 
Zahlen zu, bei denen ein Ziehen mit der 
Figur möglich ist. Andere Eingaben wer- 
den ignoriert. 

Sonderfälle: 

- Der würfelnde Spieler hat alle Figuren im 
”Haus” und hat keine ”6” gewürfelt: ER 
darf 3 mal würfeln. 

- Ein Spieler kann mit keiner Figur ziehen 
und hat alle Würfe verbraucht: Der näch- 
ste kommt dran. 

- Ein’ Spieler ist fertig”: An Stelle seines 
Würfels wird.eine Digitaluhr als Plazierung 
angezeigt. Er wird im folgenden beim 
Würfeln übergangen. 

- Alle Spieler außer einem sind fertig: Das 
Spiel wird abgebrochen und beim noch 
"aktiven” Spieler die schlechteste Pla- 
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zierung angegeben. 

Tritt keiner dieser Sonderfälle auf, so 
zieht die Figur. Das Werfen von Figuren 
anderer Spieler wird optisch und aku- 
stisch angezeigt. Kommt der Computer 
an die Reihe, so würfelt er automatisch. 
Darauf wählt er automatisch eine Figur. 
Er hat dabei eine gewisse Strategie, ist 
aber auch von der zufällig gewürfelten 
Zahl abhängig. 


Zusätzliche Einrichtungen: 

1.) Drückt man, anstatt mit einer beliebi- 
gen Taste zu würfeln, die Funktionsta- 
ste 1, so kann man den Spielstand ab- 
speichern. Mit einer Datasette erhält man 
die Meldung PRESS RECORD & PLAY, 
beim Benutzen eines Disklaufwerkes 
"TASTE DRUECKEN”. Nach dem Ab- 
speichern kann man das Spiel fort- 
setzen. 

2. Drückt man an der gleichen Stelle”f3”, 
so wird das Spiel unterbrochen. Der 
Computer rechnet nun aus, wie weit jeder 
schon gekommen ist, auch wenn er noch 
nicht im Ziel ist, und gibt danach die Pla- 
zierungen auf einen Blick aus. Während- 
dessen erscheint im Takt einer Melodie 
blinkend die große Frage: Noch ein 
Spiel?, die man mit ”j” bzw. ”n” beant- 
wortet. Falls Sie ”n” eingeben, schalten 
Sie den Computer nicht gleich aus, son- 
dern”listen” Sie das Programm doch ein- 
mal. Es ist zum Glück noch da. 
Ansonsten gelten die normalen Spielre- 
geln von Mensch, ärgere Dich nicht. 


Die wichtigsten Variablen: 

SI: Basisadresse des SID 

GN: Gerätnummer 

M(f): Einzelne Melodietöne (Begrü- 
Bungsmelodie) 

T{X): Tonreihe der benutzten Töne 
B(X,Y): Baßtöne 

SF(X,Y): Positionen der Spielfiguren (0- 
40 


) 
PF(X,Y): Bildschirmadressen der Spiel- 
figuren 
MK(X,Y): Merkvariablen zum Zwischen- 
speichern des Bildschirmcodes, der vorher 
anstelle der Spielfigur war. 
MF(X,Y): wie MK(X,Y), jedoch Farbcode 
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FA(): Spielerfarben 

LD: =0O:normaler Spielbeginn, 
=:Spielstand laden 

WS: Würfelrahmen 

WS(X): Würfelzahlen von 1-6 

WA: Anzahl der noch verbleibenden 


Würfe 

SP(X,Y): Startfelder 

F$(N): Spielernamen 

FR{N): Frequenzen (Töne) für Big-Ben 
$: Spieler, der an der Reihe ist 

ZC: Code der gedrückten Taste (Abfrage 
der Funktionstasten) 

0: Gewürfelte Zahl 


REM 
2 REM 
3 FEKESAZ 4.0 

REM 


; PEH 

= REM -------- ----- -- 

a GOZUE1AZ1 

a HELLI=t a" EL 
S=e"gnere" :WEci4)="’g ernrikie @" 

"4 srEnwrike 8" :\ificı="@ erUlie Sr E"' 


u En] 


Er 
a 


ze fe 


Daran 
= 
= 
“+ 
Da 

” 


HEXö:=" "TI 777 
IFLD=1THENFETURN 
REM 
REM 
FEM 
FORH=1TOZEGE HET 
GOSL 
GOSLEZI3E 


a IFF=&THENNESTA:GOTO 


225 FÜRN=1TO1SCH:NEH 


&4>=1THENFÜHESI+Z4, 15: GOSUE3326 : GÜSUERRZ 
0,14: IFLD=1THEHLD=20:6G0T0148 


SFIELWÜRFEREITLUHGEN 


"g GÜSUPES2S:GOSUESEIG: GOSURS420: 


MO: Figuren, deren Zug möglich ist 

Fl: Figuren, die gegnerische werfen 
können 

UN: Figuren, deren Zug ungünstig ist 
FJ: Figuren, die mit einem Zug i 
Spiel kommen 

F: Nummer der gewählten Figur 

AU: einzelne Startfelder 

Z$(X): Digitalzahlen von 9-0 

GW: Anzahl der Spieler, die fertig sind 
AN: Anzahl der Spieler, die außer dem 
Computer teilnehmen 

GWS(X): Namen der Spieler in Reihen- 


a REM ---------- 
MENSCH AERGERE DICH DOCH. 


FORESI+S,2:HNEAT 


31, „9: FRINTCHRECIGESCHRFLSH 


REM TONINITIALISIERUNG 
REM = 
PRINT"I' 81254272: FORS=OTO24: 

21 GN=1:REM KASS ETTE/DISKETTE 

5 89), 1473. E3,4),9P(4,4), 
POKEE3288, 7: FOKES32 
M$="MENSCH, AERGERE DICH DOCH !" 
FAX t5=7FACEI=10:FAl33=14:FAC45=S 
IFFEEK{2524)=ÖTHENW1=33:N2=256 :G03UE 


= 


-TIBBI" 


4 FORA=1TONAGOSUEZ420: FÜREET+S. 1 FÜRES THE. GOSUEI4SE 
a 


IFG=&THENYA=1:G0TO1S0 


is FOKESI+. "u FÜKESTI+4,2:FOKESTI+S. 18: FOKESI+4,33 


GÜSLUEZ 12 

SOTO14E 

u REM: #=3==--ere 

a REM SFIELFLAHN 

3 REM ----------- 
Sra42233:PRINT"T' 
5 FRIHTTAECAT 
3 At="l IT IER 
FÜRI=1T03 
FREINTTARCAH"S 


FRINTTRECHH" SI 
FRINTTAECHH" 
FEINTTABESN"SI 


FORI=1TOS:FRINTTAECIT 
FRINHTTRECHH"S 


a 


SPCILS=AF:SPCL, 
FÜRI=1TOZ 
FOKESFELSTD. 17E+ 
NEHTJ,I 

REM ---- 
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Tel na 


DE N La Pe N m TEN 


a  i 


bi bi 


FRINTTABE SH "Mei: nr 43 


FRIHTTAEEFN OH OS- 


EBD WE u u 2% 1 
Be] 


:FRINTTARSITFERE:NEHT 


j" 
HH" 
2 
j" 
u ii" 
ARE :NENT 

ja 


FRINTTAE TS DE 
rFEM 


DATALI12, 1131. 1251,.1032 
RESTORE: FÜRI=1TO8: READAF : IFF$XI5=""THEHHESTI:SOTOIEIE 
sıi=hf+t2:5Pil, DehAf+se: 


J:FORESI+SFEI TS, FASTD 


SP£I,4I=SAf+SZ 
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ZF£4,53.PFC4,59. MEi4. 22. MF4,5) 


folge der Plazierungen 

A$: In der Begrüßung: Zeichenkette, die 
Buchstabe für Buchstabe ausgegeben 
werden soll 

Z: Anzahl der Spielfiguren pro Spieler 
FE$: Fehlermeldung bei Namensein- 
gabe 

1,J,X: Häufigste Laufvariablen 
Anmerkung: In den Variablen MO, FI, UN 
und FJ sind die der Bedingung ent- 
sprechenden Figuren in 2er-Potenzen 
abgespeichert, z.B.: MO=2I3, wenn der 
Zug mit Figur 3 möglich ist. 


56:GOSUB10518 
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46 


REM 
> REM --—--- 


I, 


FORI=1285T014435TEFS6 
PÜKEI.$7:POKESI+I,18:NEXT 
FÜRI=1683T01343STEFS8 


5 FOKEI,37:FÜKESI+I.S:NEAT 
3 FORI=1S15T01521STEPZ 
3 FPOKEI.87:POKESI+I. :NEXT 


FORI=1525T015215TEP2 


a FÜKEI.87:POKESI+I, 14: NER 


HE=" .— NIBRBNI | u a ——" " 


REM ------- 
FOKESI+B. 248: FOKESI+4,17 
FORI=1104: IFF${I3=""THENFSCIISCHRECHEN 


= NE#T 
3 FORI=SITÜLENIFFEIS? 


FOKE1823+1. RSCCMIDELFFELS. TI. 12 AHDES 
FOKESSZ3St#1, 7:6OSUF14S0:HEAT 
SA=1053-LENSFFRENISFORISITOLENGF$SEIH 
FÜKESA+1.ASCCMIDEIFFCEI. I, 1 I ANDES 
FOKESI+SA+1,12:60SUR1458: NEXT 
FORI=1TOLENIFFL45D 

FÜKE1383+ 1. ASCCMIDESFFC43. I, 13 AHDES 


a FOKESS2SS+1,5:G0SUF1456: NEST 

a SA=2023-LEHCF$CSD}:FORISITOLENGFELH 
a FOKESA+L, ASCCHIDFCFFC3H, I. 13 OAHDES 

3 FOKESI+SA+I. 14: 5OSUE1420:NERT 


FOKESI+S. 11 FORESI+S.8:G0T01530 

FÜR#=45T050-1%4 

POKESI+1.8:NEXT# RETURN 

REN: === 277 

REM EIG-BEN GLÜCKE 

REM ==> 

FÜRN=1T020804 HEART 

FOKESI+4.21 

DATA18.3:9,.8,8.3,198,3,29.18,9,8:2,3.10,8 . 
DIMFR«1S? :RESTORE :FORI=1T04:READUE NEXT :FÜRI=8TO1S:READFRÜT3: NEXT 
=L=8:FORS=EOTO23:FOKESI+S.8:NEXT:FÜKESI+E4. 12 
FORI=STOL4STEPF:FÜOKESI+I+S. FE: FOKESI+HIH3, 5: NERT 


a J=-1:FORI=GT015:]=1+1. IFJ=STHENI=0 


POKESI+4+J#7 8: FOKESI+4+J#7.65: POKESIH1H #7 FRCID 
FORT=TTOT+13TEP.89:POKESI+ IK? ,ABSCSINCTKEIKSE NESTT 
I1=C1+1374: IFIISINTCIISANDRI=GTHENFI1=1:GUTO1500 


3 Ri=8:NESXTI:3=SL:FOKESIH11, 33: POKESI+13, SS RETURN 


REM --------------- 


.POKESI+4, 8: POKESI+5. 8: FOKESI+8. 240: FOKESI+4,33 


M=30+INTERNDOIDE4 NHL 


9 Feiöt=" ":5=g:FOrRI=1T08:G0SUE2125:NERT 


POKESI+5. 18: FOKESI+6, 8: FÜRW=1T02008 : NEXT RETURN 
REM --- 


a REM SFIELERWECHSEL 


REM -------------- 
ME=3 
S=5+1: IFS=5STHENS=1 


5 IFF$iS=" "ORASCKFEESSNODPLAGTHENZISO 


IFF£CMEISH" "ANDASCEFFCMEISTIOLTHENZI4U 


? ME=ME-1: IFMEXITHENME=4 
S GOTOE136 


UNMEGÜSUE2150, 2188. 2170. 21€ 


; ONSGOTOZ190, 2200. 2210, 2220 


PRINT" SIRREN" NE :RETURN 
PRINT"SW" TAECS43 "8"; NE RETURN 


3 FOKEZ14: 18: PRINT: PRINT" TARCS4D SHE SRETURN 


FÜKE214. 18: PRINT:FRINT" ER" UNE: RETURN 

PRINT" RES" ;NE:FOKESI+1.12:RETURH 

PRINT" TABC24)" A" NE: POKESI+1, 16: RETURN 

POKE214, 18: PRINT: FRINT" A" TABC34) ;N#:POKESI+H1, 28: RETURN 
N NE Li 

REM 

REM 

MA=1:FORI=1TOZ 

IFSF<S. IN=G0RSF CS, IP >4OTHENNEATT:NA=3 


RETURN 

REM .—- 
REM HUERFELN 
REM ---------- 


ON 5 GOSUP2450. 2468, 2470, 2458 
IFMP=1THENPRINT" OBER" 5 :GOTO3450 
GOTI2Z428 

FRINT" SIR" 5; RETURN 


4 FRINT" MM" TAR<C232 5 RETURN 
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10. Oktober ’84 


2470 FÜEEZ14,13:PRIHT:FRIHTTABC3SI 5 RETURN 

2428 FÜKEZ14,13:PRINT:FRINT "RB" ; RETURN 

2428 IFF$LSS<CH"COMFLUTER"THENFOKEISE, G:WAIT13S, 1:G0T02508 
2435 FÜRN=1T0S89 NEXT 

es ZC=PEER (203): IFEC=4ORZÜ=SSTHENSESE 


az FÜKESI+4.8:FOKESI+S.2:FÜKESIHE, 248 POKESI+4, 17: PRINTER" ; 


IFF$2S:=" COMPUTER" THENFORCH=1TO1G 
1 G=INTIRENICLIEEN+I 

SE PRINTWECOISNECEI, 

FÜHESIHI.E4HE 

IFF&XS:="C6MFUTER" THENHEXTCN:GOTOESS 

a IFFEEKCEOZICHS4THENGOTOFSIE 

FOEESI+5. 18: FOKESI+E.8 j 

= MO=9:FI=8:UN=&:FJ=6: IFO=STHENGOSUFSESE: IFMO<SHOTHENZESE 

Zube REM ----- 

REM KAHN EINE FIGUR ZIEHEN * 

REM -------------------- 

FÜRIS1ITOE 

4 IFSFiS. I5=ETHENZEFT 

z&1l8 REM ---------------------- 

Ze REN FROBEDURCHLAUF EINES ZUGES 


F=5F (5. 13: FÜRPR=1TCOQ 

P=P+1: IFF=41THENP=1 

IFF=-3+ 18$3THENF=P+23 
S="CONPUTER"THENGOSUB4108 


‚ MÜ NOOR2 TI: ee 
” HESTI: IFMÖ=ÖTHENF= S:RETUFH 


SIr2.E: FOKESIHE. EOS PÜKESI+417 


4 


JRFSZTHENGOSUBETIG: GOTOZESE 


+1 ' Ife= EEE ‚Itl. ER FETUFH 
SOTHENFOKES 


1+1. 32 RETURN 
BTHENX=G FÜKESI+1. 0° RETURN 
RETURN 


Bag: BEN Sarnssineieuk 
REM FISUR ZIEHT 
DEM en 


FÜKESI+6.0 FÜRESI+S,7 FOKESI+1.4S 
RI=&: IFSFÜS,F>=öTHENSAAS 

REM ---------- 

REM RICHTUNG 

REM ----- ua 

FORZE=1TON 

F=5F(5,.P) 


a IFCEB<PAHDFIFSPORCFS3SÖRPe4ähürRl 3IPAÄHDFZ 
IFXZE<FAHLPZESIORTFSZ3ORF=S3E OR 34LPAÄHDPL 
IFÜISZXFANDFZISPORLFS13ORPSZa OR E4PANDPIEA 
IFKM=1THENKM=A' GOTOZISA 

3 FÜKEFF£3,F>.MKCH. FI: FOKESI+FFÜR.F>.MFCS,F) 
a SF£S, FI=SFCSs.F3+1:IFSFES.FI=41THENSFGS, F}= 1 
IFSFCS, F3=-3+19&3THENSFCS, FI=5fiS, FJ+r22:KM=1:G0TO2337 
a FFÜS,Fa=FFiS,Fi+RI 
MEIS.F>=FEERÄPFÜES FISCHE, FI=FEEKCSIHFFOS. Fr) 

a FOKEFFUS.F3. 1FE+F :FÜKESI+FFCH, FD. FACH 
378 FÜKESI+4,B:FÜKESI+S.33 
"3 IFLI=1THENGOSUE14502: IFIISETHEHRETUFRH 

A ME=TEE:RETUFRN 

9 REH === --7>>2>- 2 nn 
2531 REM FIGUR ZIEHT YON STARTFELD 

@ REM ---------------- 

a PÜKESFCS,FI,SFPESFIS, Fi=-9H 1085 
a IFS=1THEHSU=1423 ö 
3 IFS=ZTHEN=U=1125 


IFS=4THEN#U=1321 
3 FF£S,Fo=sl: MECS.FI=FEERCAU NFOS, FOSFEEKÜSIHRUN 
FÜKEHU, 1FS+F:FORESI+HU. FACH) 

IFLD=1THEHRETUFN 

3 FÜKESI+4.8: FORESI+S. 18: FÜKESI+4, 21 

FÜKESI+11.18 

FORT=1T048: FORTNH=SOTOE 


HEXTTN. T:FÜKESI+1,8:RETURN 
98 REM -------------- 
3 REM FIGUR WERFEN 
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IFÜ SEUFAHLFZ SPÖORcF= SORF=S1AH0RCL4LFAHLPEZ IS>0RK SAZFAHDLFZ1E4>THEHRI=SE 
LERLFÄNHDFZ1343 THENRI=-50 
SIORK11S FANDF 124 THENRI=-2 
SORK LAS<CPANDP<1 143 THENRI=3O 


FÜRESI+1. 3E+15#TN:FÜKESIH1S, 18+5E TC TN+13 FORW=1TORBSCSG-T) NEXT 


47 


48 


2 FEROA=1704. FÜRGB=1TOZ 
! STHENSETE 
3, Fh=Sfion.GESTHENSSOG 


3 NEHTEA: RETUFRH 

3 FÜKESI+11.0:FÜRESI+IS a 128: FOKESI+11, 21: PÜKEST+E. 240 FOREST+1,3 
4 FL=3: FORT=1S0T095TEP-5 

FÜRTH=1TOS " FOKESI+E, THTNHR2:FOKESIHE, 200-T-THEZ 

4 FL= ENERAERREN FLAHDIS 

7 S " TH 


»4f Fr=MKCoA. GENSMFCS, FI=MFSon.DE) 
3 FEKESI+PFXS.F3,FASSD 
3 ZFXOR. GE=E FORESPCOOA.DEI,L1TEHSB 
4 FCKEEI+5. 18: FOKESI+HS. ©: POKESI+HE. GFÜKESTI +4. 22° FÜRESTIH1.6:FÜKESIH11, 0 


18 REM SEWOHNNEN ? 
90 EM een 
} FORI=1TO2' IFSF CS, 13C30+18#STHENRETURN 


EM = 
23 REM GEMÜHNNEH 
3: REN: == —- 
3 A=HA:FREINTHFISIG 
>39 Zeile" cn WEBER | | PEN Is-al MABmnE | | REBEEH '— 1" 
BEE HE 7 7 1 77 
=" ie) DABEI | Bl" 
ae a" 
=" BT I  — " 
=" A ah" 
=" {ala a 
Zn I al Ha Ne N" 
=" Ah I" 
Ri >=" 0 EI 
# Eee Bo = itrEF HERT 
L ‚a:FOEESI+S.2 PÜEKESI+E.Z4E:FÜOKEST+H. DE 


(TER 
- 
Dur 
je 
nz, 
berg, 
=; 
wa“ 
In 
m 
m 
en 


— 

am 

7 
I 
in 


5141.98 FÜKESI+1..1772 POKESI+HL.O FÜKESI+HL. IS POKESIH, 


DACH CH 


SEN HCHRE EHEN 4". HERE FRISCHER ÖONHGNHFROST 


az 


TFONSÄHTHENZE 

IFGHU=AH-ITHEHNMF 
IFLD=1THEHFETLUFH 
GDZUF SEE EETUFH 


EHIE 


az 


in 


Er 

par 

Dr 
En Ber] 

rm 

Ei 


4.11 FFINHT FRINTTAREG1SH" aTAsTE DEUECKEN 1" WAITZAZ.68 


: FIEL *" 
5145, 5) HEx T: GOSUBSI2° COZUFIEO4 


2 


. PRIHTETTE 
„ETAF IFAF TAHnAgET "NH" THEHZESE 
FOFESI+4.G:FOKEE 145.12 FOKESI+E,O FÜKESI+4, 32 
TFASS"NNTHENPRINTNEIN"CHRSECH) "AU" 
IFA&="T"THENFRINT" IA" 
FÜRT=1T028: GOSUBZO008 : HEART 
4 IFA$="T"THENPOFKEZE24, 1 RUNZE 
158 FÜRESI+24,8:57343152:POKE198.8:EHD 
BU REM === er 
ala Ben COMPUTER WAEHLT FIGUR 
JE e a ._ 1 1 
4625 FÜRWS=1TO4:FÜRUF=1TOZ: IFUS=STHENNEXTNE:RETLRH 
5458 IFSFCHS, HFS=SFTHENFISFIORZTI:GOTO4355 
4558 HESTHF. HS 
5 IFFS4ÖAHDSFES, ISX41 THENFI=SFIHE2T] 
FETUFH 
F=INTSEHDEISFZI+ 

IFFIZFETHEHFI 
IF£FIAHDCSHFN 
5 IF£EFIAHBCETFN He 
" IFFISSANDFT=GTHEHIFUNSOOR ÖCUNANDMOF=MOORCUNANIDKEIFISOTHENZTOO 
3 GOTO4ESE i 


5 
5] 
Pa} 
R 
a FORK=1TO4:IFE=STHENM1SE 
a 
[5] 
[5 
[5] 
[3] 


438 

419 

4119 FÜRL=1T02:IFSFCK. L>=PANDFR<DÖTHENUN=UN+2TI 
4128 HEKXTL 

4129 HEHTK:RETURN 

7309: PEN 7 een seta eier eine 

Sö1G REM ABSPEICHREN DES SPIELSTANDES 

020 FR 


wenn 
Dog] 


FÜKES3288. 4: #P=POSLB) !YP= =FEEKIE143-1:5T IHRES 
IFZC=STHENSSSO 
FÜRI=STOE:FORI=1433T01452 


Ar 


Compuhe mi 10. Oktober ’84 


45 FÜKESOGGCH+J+ #26. PEEK(J+1%395 :FOKESG200+]+1#24. PEEKCSI+J+ 1830) 
3 HE#TI,I ; 
a FÜKE214,2:FRINT:FRINTTARES" BAESFEICHERHN " 


: FEINTTARSIEN"DES SPIELSTAHDES" 

5036 FRINTTAELIE" NIREH SI-SFRCEE 

Se625 IFGNS>LTHENFRINTTARCIO>"S TASTE DRUECKEN "AIH=203:A2n=63: "Aad= =g 
 IFGH=1THENFRINTTAEC IR" SPRESS RECORD & FLAT: AlA=1:A2%=32:A3%2=39 

51: Ei FRINHTTAECHH" ":REM 21 SPALES 

5118 HAITALE.AZR.ASE 

=3 OFENL.GH, 1. "SFIELSTAHLD"FRINT#1,Z 

FÜRI=1T04: IFISSTHEHFELIS=CK"+FFEI 

a FRINT#1,FECIS: IFISSTHENFFSIS=SMIDEEFFCIN. 2,285 

aa FORJ=SITOE:FRINT#1.SFUCLTSCHERTI-ISCLOSE1 

53 FOREZ14,F:FRIMT 

FORI=S1TOS:FRINTTAREIEH" ":REM 13 SFACES 

HEHT 

FÜKESZZEE, 14: FORI=SOTOE:FÜRIT=14337T01453 

EEE LISRHPEESTSERDENTEIRER :FÜRESTI+J+ #00, FEEKOSZENH+ T+ 1850) 

4 HE#TJI,I 

4 FÜKES14, 189: FRINT:FEIHTTABC1EH" ""REN 13 SPACES 
a FÜKEE14. "P:FRINT:FRINTTAECHFI" A" SGOTOZ4SO 

au! REM are 

+35 REM FLAZIERUNG FEI SFIELARERUCH 

I ur REM =... 

as FÜRI=SITO4:IFF$EII=" "ORASCEFESTISSLOSTHENGOSLUEITEO 

5 en 1TOE: IFSFCI, IS>48THENSFEI, I5=41: 60705358 

4 IFSFÜI, TI=STHENSSSE 

SFCH, T5=3F£l, Is-198#C1I-12 

IFSF£I. I>Z=BTHENSFSTI. T=SF£@l. Tı44o 

3 HEHTI 

5 FERJSITOE SFEI.O=SFil,SHSFEL, IC HERT 

5 HE#TI:GOTOSESE 

IFF£ECISSH" "THENSFELEISEROHLOEEOASCEFEFEIID- 100) 

sF21.8=-1 

* EETUFN 
FOR T=1T04 ° IFASCEFFÜISDSLBOTHENFFCISSMIDSEFFLID.2. 19) 


3 EHELIS=SCHREÜFAUISSHF$e I) 
el 


=1703 
an.=ar IH1. SH THEHNEST GITÜSETE 

Zp= Ei. Ssrıl. ös=sF 1Ir1,3) srıltil,dy=särf 

4 GNF=GNECI> GUEFLISSGWFLITL> CUEIIHLISCHE GoTos d=eis] 
i=i FÜRK=1TO4 


3, I S+CHREC4EH ID+",  "HMIDECÖMFCE" 2,195 
"®zFik+1,85 THEHI=I#1 


5] E0Tns 
FORESSZEB.T FRKES2ZEIL.3 FRINT" INN" 
b PRIHT"RSBBIFLASTERUNGEN u" 
2 FORI=1TORH PÜKEesE. RA: Be 
3 FRIHT"S"TARCSESMIDEÖUFTID. 2,190 
3 HE=T PRINT" Maleslel" -KETUFH 

5 FEH nn anne une dan nn an men va un ana ens 
15 FEM ES WUFIE & GEHLERFELT 
4A KEM nn nn 
FORI=1T0E: IFSF (8, D>=-3+16KSTHEHRETURN 
x HEST IT 
4 FZEI=ITOZ IFZF4S. I>=STHENNMG=SMOÖRE rI 
4 HESTI: RETURN 
5 sch un u mn nen 

g FEH BEGRUES SUHG 
3 REM: - 


1: FORESI+24, 15: FÜKESI+Z3,1 17 

aaa FürRI=3Toz:FOKESIFZ+HIET, 8: PCKESIHEHT ET. SIG PÜKESIH4H RT. 
3648 FOKESIHrL+IET.3: POKESI+1K? „Ikt: HESTI- 

x "OK DI, PÜRESZEELSPIFRINT" TA" TAES42; 


v5 AF=RF+tIBBBLTTTITSUDDEL SAHMES & CAU FRESENT:" 

sza FÜRI=ITI22 FRINTMIDECAS. 1.135 :POKEST+L. ASCHMIDEUAF. I. 123 
805 IFIZEÖTHENPOKES4S, FAIRNDSI SESH+L) 

Ga FORN=ITÜSS:HERTN.Z 

033 FÜRI=3TÜE POKESIHSHIK7.13:FOKESIHE+187.D:NER 

835 FÜRKSITGES: a K 

2198 FRINT:FÖRI=1TOZT:FRINTTABEILS">SSFORESI#L, IONESTIFRINT'TICHE"; 
3119 FÜRI=ZrTOL STEP-: FRINT" <IMG; :POKESI+L, ICHEAT:PRINT"RX"; 
2123 HE#TK 

3130 FRINT:FRINT" NN" TAEC1IHS 

148 FÜRS=OTIEF:FOKESIHS.G:NERT 

2159 FOKEZIF,13FRINT:PRINTTABCPI IR  — — — —— — — 
2155 FRINTTABTPF"IXCH BY MARTIN SAUR-FRÜSCH I" 


3138 FRINTTABCHH"I KÜLFINGSTR. 13 1 
3173 FRINTTAESPY"I S3E2 HÜEFFINGEN " 
BER TERERRENERTE 


3158 FRINTTABCIH" 
>18 SOTO1S0E8 
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INERENERERERENERERER 
rent 
Ida ba da pa pa np 


a ER LE ECENGERTENG 


+ 
Er 


Se Gohierg 


Sı 


zz Qu. 


LALMENErErT 
NET TE TE 


— 
zu 


615 


12058 
15078 


HEs lu ba]5] 


15078 


10239 
12248 


102580 


a ee a ee a 


Halci=la) 
0228 
133553 
19378 

10320 


10468 
2413 
19415 
15428 
10425 
15433 
10448 
0428 
10470 
19438 
23428 
18550 
0518 
10515 
1852 
1053 an) 
18548 
19558 
18551 
15552 


Fa EEE =ı 
FORI=43152T0432 


a DATA1114,.1402. 1669, 2225 


a FÜH 


FÜRESI+4 


3 57549233: Ar=" IsnahbBl . NORMALER SPIELFEGINN" 
3 A$=A$+CHR$L1I:H" ade. SFIELSTAND LADEN WON" 


G#="BAHD" : IFGNZZITHENGF="DISK" 

As=AF+5f 

AFSAF+" IIERBEBHBBBEIATEITTE HAEHLEHN SIE !" 
SUSUEFFHE:FOKE1F2,3 

SETAS: IFAF="" THENRETÜRN 

IFAF="Z"THENLO=1 "RETURN 

SCTOFE48 

FERA= ITOLENKAFI:FRIHTMIDEIAF, A 13; :FORW=1TOS8NEXTN, A:RETURN 


TO29:RERDUE:HEHRT 
RERDC:FOKEIC:HEXT:RETURN 


REM 
REM BEGRUESSUNGSMELÖNIE 

REN. + 
FIKEE14.T:PRINT:FREIHT"R"TARC1ES: 
DATA4455, 3085, 3520, 3320. ges, 4, 


IATRISS2. 1402. 1067.21 
DATA ',1423,1563, 13 
DATA S37,1114,1487,1 
DATAills. 1487,17 5,2 
DATA 224, 1114.1403, 18 
IATALESE, 1487 „ISTsEZ 
DATA 334. 1951. 1250, 
IATA1114,.1402. 12839. 2 


a FORI=1TO7:RERDTSIS:NEHT 
5 FORI=1TOS:FORF=1TO4READECT. Ja: NEXTI; I 


DATA2,5,9,9:0:9:0.0.23.9.0.5.0.0:08.0.2:.0.5:7.0,.8.8.3.0,94.0.4.0.0,.0.0 
DATA4-3.2.94.0.0.0.% REN TNN d. er 2. 0.2.0.0.0.0.0.8, 8.8 
DATA. 3.2:2.4:.2.0,1.0.0.0.0.0,0.0.0 

FÜRI=1TOS8:READMEID NEXT! FOKESI+24. 31: POKESI+S, 11: FÜKESI+12, 11. 
“ESI+22,4:FOKESIHZZ.2 

FÜKESI+17, 11:FOKESIH28, 24 FÜKEEI+18, 89: GE=N1: TE=SHI ERS 
J=s3:K=0:E=1 

FIRI=1TO84: IFN{T+ERS=STHENFORN=S1TOSC HEFT: GOTOIAZSA 

FGEESI+S, 22: FOKESIH11.28 


a R=Mi I+ER5:POKESI. TiM>RAHDESTSFORESIHL. TiMEIE 


FEKESIHT. -28+ TCHIANDES4!FOKESI+HE. TH 
RLEZFTHEHFRINTMIDEEMF,A,:12G 

"THEHFRIHT 

"FTHEHFÜKEESS, A:FRIHTTAES1OS"TTHME 

i=K+ 1: IFK=STHENK=I : I=.1+1 

De J=8 

FÜKEZI+11.GE 

ZreBed.K): FÜKESI+14. EAAHDEZSS: FÜR u ESE 

Ir B=&AHNDK=4ANDI= TANDGE=Z=1THEHER =1j6:E=E+ 

IFE=PAHLIS=1THEH1O2SHO 


+3 FÜRN=ITOSECHESTA.T 


= , 
I+24,8: IFM#="NOCH EIN SPIEL ?"THEHNRETURN 


TE=E4:5E=21:50T012 
FCKESI+13, 12: POKES 
FORWN=1TOLSRET NEST 
FOEESI+4. 2: FOKESI+S.S: FOKESIHE, 248 FOKESIrd. 17 
FORI=5T024:FORI=OTDE:FÜKEI+I#40+353065 3 °HERTI 
FÜR#=43T084-1:PFOKESIH 1.8: NESTS 
HEATI:FÜKESI+S, 14: FÜKESIHE,O 
A=0:FÜKE1FS.8 
FORI=3T012:FÜKESSSTS+L, A!FÜKESSSTS-L.ACHEST 
FÜRI=ST04: POKESSABS+ #40, A: FÜükES 5331+18438; A:HE&T 
FÜRI=13T0S5TEF-1:POÜKESEEZFHT.A:FÜKESEB3SS-L, A:NER 
=A+1: IFA=255THENA=8 
IFFEEKt 1353=5THEN19415 
FÜRI=8TG23:FÜKESI+T. ©: NEHT 
GOSLIBF2E0 
REM ----------------- 
REM HIENIELE SFIELER-FIGUREN 7 
REN == 
IFLD=1THEN14868 
SrS49233:PRINT"T' 
FÜRI=STO48: POKESZZS1. 1: FÜKES3ZZL, Z:HERT:PÜRESIHE. 24M:FÜKESI+4, 33 
FRIHT"SSEWMISUIEVIELE “ON EUCH HOLLEN SICH AN" 
FEIHT"MEIEM SPIEL BETEILIGEN 8-43 7"; 
SETA$: AN=WAL CAF>: IFAN>4THEN195I8 
IFAF="ä"THENPRINT" KEINER. ":GOTO11808 


IFAN=ATHEN18558 
© 
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sus28 
29739 
iorid 
13720 
10728 
ara 
19750 
arE8 
1877 

10750 
19720 
13795 
15560 
132095 


14020 
14035 
14026 
13130 
14185 
14118 
14115 
14128 
14120 
14148 
14158 
14168 
14179 
14150 
14258 
14235 
14230 
14291 
14292 
14294 
14235 
14259 
14326 
14320 
14508 
14519 
14528 
14539 
14548 
20058 
26019 
20106 
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AHF=STRECAND+" LEUTE": IFAN=1THENAN$=" EINER" 
3 PRINTAHNF :GUSUE2OBE8 


PRINT" SUMIT WIEVIELEN SPIELFIGUREN PRO SPIELER" 


FRINT"ABCLL GESPIELT WERDEN C2-437"; 


GETZF:Z=VALC2$): IFZZZORZI4THEN10E38 
FÜKESZES1,F:FRINT"T" 


FEINT"MBWEIER SPIELER GIET SEINEN NAMEN UNTER" 


3 PRINT"IEIER FARBE AN,DIE ER WAEHLT." 


FEINT"SSNEDE FARBE,HINTER DER EIN C EINGEGEBEN" 


"2 FRINT"IWIRD.STEUERT DER COMPUTER." 
a PRINT"SSMAEHLT KEINER DIESE FARBE.NHUR RETURN" 


PRIHT"MDRUECKEN. " 


3 FRINTZ"FIGUREN" :GÜSUB29898 : FÜRW=1T01988 : NEXT :SY542233 


FREINT"SBERSELB" FRINT"MEROT" :PRIHT"UEIBLAU" :FRIHTURMEISRUEN" 


FÜRI=1TO4:FÜKEZ14, SH 182 - FRINT 
FOKES4S. FACID 

INPUT"IBBBBBI" FEIN 

HEMTI 


A=8:FORI=1TO4: IFF$FCISZ" "AHDFECINTH"C"THENASA+H1 


HEATI 
IFA=AHTHEH10SE 


DI=SAH-A: IFDI=SITHEHFEF="ES FEHLT NOCH EINER." 
IFDI=-ITHENFEF="ES IST EINER ZUVIEL." 


IFBIFITHEH FEF="ES FEHLEN" +STRESAN-AI+" LEUTE," 


IFLIZ-1THENFEF="ES SIND"+STREC-AN+A>+" LEUTE ZUVIEL." 


FÜKEZ14, 15: PRINT:PRINT" 


FOKEZ14,15:FRINT:PRINT" I" FE$ 
FORI=1TU4: Fi I2="" HEKT:GOTO10718 


FÜRI=1T04: IFF$CII="C"THENFECII=" COMPUTER" "AN=AN+1 


S20 HERTI 


":REM 39 "5 


IFAHN=1THEHFÜKEZ14. 15: FRINT:FRINT" SIDER COMPUTER MUSS MITSPIELEN. " 


IFAH=iTHEN1G718 


& FÜRI=1T08:F$CII=SLEFTEEFFEIS ID: NERT 


FORLU=1TI2088 NEXT 


a FÜRES1S, 12: FRINT:FRINT"AUOK.ES GEHT LOS. 
0 FÜRN=1TOISAG:MEST RETURN 
205 GOSUFZOGGE: FRINT'"ANSBES FOLGT EIN DEMGSTRATIONSSFIEL. " 
ala FÜORI=1TO4 F$CI>="C" NEXT 


FÜRN=ITOZOBE NEXT FÜKESZZEL. 3 AH=O: 2-4 GOTO1OSZO 


REM mm 
REM SFIELSTAND LADEN 


3 REM --- 0 


FRINT' IFGN=1THENINFUT"MSBAHD AH RICHTIGE STELLE GESFULT"SUFSFRINT"" 


ÖFEH1.GH.&. "SFIELSTAHND" 
IHFUT#I.Z 


35 FORI=1T04' IMFUT#L,FEEIN 
3 FÜRT=1TOE INFUT#1,SFEI. TICHEHTI.TOCLOSEI:FORE 
5 FÜRI=1T04 


IFF&<1)=""THEN14898 
IFRSCKFSCIII<LOLTHENIGSH 


eu 
Du TR Ts 


IFASCEFFCINS=S4ETHENSSSIFFCIDSMIDECFFEIN. 2.1 


AH=AH+I 

HEST 

GOSUESA: #=AN:GOSUFEE30 

FOKESI+S, P!FÜHESI+E.B 
FORI=S1T04:IFF#CI3=" "THENI14SSO 
GUSUBE1E5 

RESTÜRE : FÜRT=1TOI:READÄF NEXT 

11=3: IFSFCI. 13>S>OTHENFÜKERF. S7: 111 
IFSFSI. 23XCHOTHENPOKERF+2,87:11I=Il+2 


IFSF{L.SPS>OANDZ>ETHENFOKERF+58.87:11=11r3 
IFSF£I,43<>OANDE=4THENPOKEAF+S2. 87: II=1Ilr4 


L=3: FÜRK=1TO4:L=L+5F£1.K>: NEXT 
IFL=ÖTHEN1 4208 
S=1:F=5:G0OSUE2018 


G=44:SFi1,92=-9+10%1:605UP14598: IFII=SETHENI 4308 


GOSUB2E835:POKEPFCI,SP. 1PE+LL 
IFSFC1,8>=8THEN14308 
GHU=SF£1,03-1 


PRINT" TUR"; :SOSUES458 FÜKESI+S, 7:POKESI+E.8 


G2=62+1 

HESTI:GN=GZ 

SOSUB2125: IFS<SHSSTHEN14320 
RETURN 


Eis Po 


a 5F£EL,S3=ASCELEFTSCFFEIS. 123-100: FFOIN=MIDECFFEIS, 2.195 


FORLL=1TO2: IFSFCS.LLISPSFES, FIORF=SLLTHENNERT RETURN 


PF(S.LL>=PF<SS,F> 

MK(S,LL’=MK(S,F> :MFCS,LLI=SMFCS,F) 
MK(S. FI=1r6+LL:MFCS, FI=FA(S> 
II=II-LL:RETURN 


U=16:G0SUB20168:U=24:G0O3SUB29169 : U=32:GUSUF20105 :U=40: GOSUB20180 


U=45:G0SUE29189: POKESI+1,6:RETURN 
POKESI+1.U:FORN=1T048 NEXT RETURN 
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Das Programm belegt ca. 9,5 kB und ist 
überwiegend in Basic geschrieben. Es 
wurde lediglich eine kurze Maschi- 
nencode-Routine zum schnellen sortie- 
ren von Strings eingebaut. 

Von einem Hauptmenue aus können alle 
Funktionen aufgerufen werden, die teil- 
weise noch ein Untermenue enthalten. 


Nach dem Starten des Programmes fragt 
der Computer. ob man eine bereits auf 
Diskette gespeicherte Datei laden 
möchte. Gibt man nur "RETURN” ein, so 
gelangt man in das Hauptmenue. An- 
dernfalls wird die Datei deren Namen 
man eingegeben hat, geladen. Existiert 
die Kartei noch gar nicht, so wird gefragt, 
ob eine Datei mit dem eingegebenen Na- 
men eröffnet werden soll. (Nur ”J” oder 
”N” eintippen). 
Die Pfeil nach links-Taste bzw. das Ein- 
geben von LEERstrings (nur RETURN- 
Taste drücken) haben eine ESCAPE- 
Funktion, d.h. die laufende Funktion wird 
unterbrochen oder aus einem Unterme- 
nue in das Hauptmenue gesprungen. 
Nach der Bearbeitung der Prpgramm- 
“punkte 1, 2 oder 3 werden die Daten auf 
Wunsch sortiert und es wird ein Zeiger- 
feld zum schnellen Zugriff auf die Pro- 
grammnamen aufgebaut. 
ACHTUNG: Der Menuepunkt 4 kann nur 
angewählt werden, wenn die Daten vor- 
her sortiert werden. 


Die sechs Funktionen: 


DATEN EINGEBEN: 
Nach dem Anwählen des Menuepunktes 
"DATEN EINGEBEN” kann man unter 
drei Formen der Eingabe auswählen: 


PROGRAMM- 


VERWALTUNG 


für den G-64 


a)Eingabe per Hand: Alle Daten müssen 
manuell eingegeben werden. 

b) Direkt von der Diskette: Man legt die 
Diskette, deren Daten man in die Datei 
aufnehmen möchte ein und drückt 
"RETURN”. Der Computer zeigt nur die 
Namen und die Längen der Programme 
nacheinander an, und man kann auswäh- 
len ob man das Programm übernehmen 
möchte oder nicht. Willman einen Namen 
übernehmen, so fordert der Computer zur 
Eingabe der restlichen Daten auf (z.B. 
Programm-Art). 

c)Datei dazuladen: Eine auf der Diskette 
gespeicherte Datei wird zu der im 
Speicher stehenden dazugeladen. 


2) PROGRAMME LÖSCHEN 

Man wird zu Anfang nach dem Namen 
des zu löschenden Programmes gefragt. 
Gibt man jetzt ”alle” ein, dann werden 
alle vorhandenen Daten gelöscht. 

Bei Eingabe eines anderen Namens wer- 
den alle Programme mit diesem Namen 
gelöscht. 

Um unabsichtlichen Löschen vorzubeu- 


gen, wurde eine zusätzliche Sicherheits-. 


abfrage eingebaut. 


3) DOPPELTE PROGRAMME LOSCHEN 

In diesem Programmteil können doppelt 
vorkommende Programmnamen ge- 
löscht werden. 

Hat der Computer zwei gleiche Pro- 
grammnamen gefunden, so zeigt er die 
beiden Einträge vollständig an und fragt, 
welchen der beiden Namen er löschen 
soll. Drückt man jetzt die Pfeil nach links- 
Taste, so überspringt der Computer diese 
Einträge, d.h. es bleiben beide erhalten. 


| 4) PROGRAMME LISTEN 


Dies ist der längste und komplexeste 
Programmteil. Hat man Ihn angewählt, 
wird man gefragt, ob die Ausgabe auf 
Bildschirm oder Drucker erfolgen soll. 
Wählt man die Ausgabe auf dem Bild- 
schirm, wird zusätzlich abgefragt, ob die 
Bemerkungen oder die Programmdaten 
ausgegeben werde sollen, da der Bild- 
schirm bei Ausgabe von Bemerkungen 
und Programm-Daten zu voll und zu unü- 
bersichtlich wird. Nun gelangt man in das 
nächste Untermenue, in dem man das 
Suchkriterium ‘eingeben muß. Hierbei 
gibt es vier verschiedene Möglich- 
keiten: 

1. Kein Kriterium, d.h. alle Einträge wer- 
den ausgegeben. 

2. Suchen nach Programmnamen. 

3. Ausgabe bestimmter Programmtypen 
(z.B. Spiele, Basicerweiterungen, usw.). 
4. Inhalte bestimmter Disketten. 


5) PROGRAMMLISTE SAVEN 

Alle Einträge werden auf Diskette 
gespeichert. 

VORSICHT: Gibt man einen Dateinamen 
ein, der bereits existiert, so wird die alte 
Datei überschrieben!! 


6) PROGRAMM BEENDEN 

Es wird abgefragt, ob man die Daten ab- 
speichern möchte. Gibt man ”J” ein, so 
gilt das unter 5. Gesagte. 
Andernfalls wird das 
beendet. 

Das Programm und die Variablen sind 
noch nicht gelöscht. Möchte man noch 
weiterarbeiten, so muß GOTO 260 einge- 
geben werden. 


Programm 
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PRINT"jI" 
28 GOSUB28688:DIMA$S(S97),BA(256),C$(8) 

28 OPEN15,8,15,"1" 

49 GOTO2488 

58 GETAS$: IFA$=""THENS® 

689 RETURN 

78 GETAS$: IFAS< >CHRSC13)THEN?O 

828 RETURN 

s8 S1=-54272:POKESI+7,99:POKESI+8,4:POKESI1+13,248:POKESI+11,33 
189 POKESI1+14,128:POKESI+15,5:POKESI+28,248:POKESI+18,17 
118 FORQ=15T0O3STEP-.1:POKESI+24 ,Q:NEXT 

128 POKESI+11,0:POKESI+18,98:RETURN 

1398 PRINT" I"SCHR$(14) 

145 PRINT" Agmagpan" 5; TABC11)7"S-ISKETTE EINLEGEN" 

158 PRINT" Melal" ; TAB(1293 "DANN Ak >" 

1598 GOSUB7O 

179 RETURN 

1598 FRINT"I"FCHRE(14) 

138 FRINT" Melange"; TAB(C6)5 "EMISKETTE MIT ARTEN EINLEGEN" 
288 PRINT" MEIN" > TABC1237 "DANN X Pa" 

210 GOSUBSB: IFA$< >CHRECIS)ITHENZ21® 

228 RETURN 

238 PRINT"Ü"FCHR$(142) 

248 PRINT" Mieleieieiepg" ; TABC7)7"SKEINE NAMEN GESPEICHERT !" 
259 FORQ=1TO1S5BB8:NEXT 

268 REM x+x* HAUPFTMENUE #+%+%* 

278 PRINT"Ü"FZCHRE(14)57CHRE(B):POKE198,0 


zes 

zZE9 PRINT" SROGRAMM-XERWALTUNG " 3; SPC (2 1) 7 em ——— 
238 PRINTTAB<(17)7 "BIARINENUE " z 

2938 PRINTTABC1? IE" 

318 PRINT'S 1. ATEN EINGEBEN. „scceoaenone" 

s28 PRINT'M 8. "ROGRAMME LOESCHEN. 2sc000." 

339 PRINT" 3. "OFPELTE "RG. LOESCHEN. ...* 

348 PRINT'"M 4. "TROGRAMME LISTEN. socso00c."® 

358 FRINT"N 5. TROGRAMMLISTE SAVEN. son. ." 

se8 FRINT"M 6. TROGRAMM BEENDEN. seen een.." 


378 I1FQQ$)"3"ORPO<2ZTHENSSO 

71 FRINT"m A 9OLL ICH SORTIEREN (WI ? ee" 

372 GOSUBSB: IFAFTY" J"ANDAS<Y"N"THENS?Z 

373 IFA£="N"THENSO=B:PRINT" ":G0OT0398 
3859 SO=1:PRINT" 1 IITTE WARTEN - „CH SORTIERE SD" :GOSUB23S9 

Ss38 GOSUBSA:EN=B:ANSSAS: IFSO=BANDAF="4"THENAQAE="1":1G0T026808 

488 IFAS<"L"ORASY"E"THEN3SO 

418 IFPO>ITHENMS3O . 

420 IFAsC>"L"ANDASTY"E"THENZ2EO 

430 A=VALcAF):ONAGOTO 1959 ,2280,2719,1150,7008 


448 PRINT"ZO"SCHRSC14)7 "2 we"; 
458 FRINT'"A ROGRAMM BEENDEN W"; 
466 FRINT"Z Bw"; 


478 EN=L:PRINT"MAA TROGRAMMLISTE YEXN (VI ? 9"; 

38 GOSUBSO: IFA&<)"J"ANDASTY "N" THENASO 

459 IFAs="N" THENPOKES3289 ,14:POKES3281 ,6:PRINT"LÄJ" SCHRSCIA2I:END 
598 GOTO?»B 

SIA PRINT" ER" CHRS(C142)7" WELCHE DATEI SOLL GELADEN WERDEN ?" 
528 WE="": INPUT" NAME "zlist IFLENCWE)LETHENSI® 

530 IFWUE=""THENZ2EO 

548 GOSUE 130 

559 CLOSE2:OPENE ‚8,2 ,W&+",5,R" 
552 INPUTH2,PO:N=® 

S70 IFFO=BORST< YOTHENE2O 

530 FORN=1TOFO-1 

SSO INFUTR2,ASCN) 
E20 NEXTN 

E1IO CLOSEL:AFLPO)="":QQ$="1":C0T0288 

E20 PRINT" Melslalsiel" ; TAB(S)5 "SL EUE —ATEI EROEFFNEN ?4" 

E30 GÜSUBSO: IFASC)" J"ANDAS< )"N" THENG3B 

649 IFA&="N"THENGOTOEEO 

658 FO=1:CLOSE> 

869 OPENE,8,2,"Q:"+HWs+" ,S,W" 

E70 FRINTHZ,PO 

5EB CLOSE2 

83a GUTO260 

782 PRINT"W"SCHRSC142): "MA UNTER WELCHEM NAMEN SOLL DIE DATEI GE-" 
718 PRINT"M SAVED WERDEN 777" 

729 Ws="":INPUT"A NAME "ls: IFLENCUS)DIETHENTZ2O 

738 IFWE=""THEN2S2 

748 IFPO<2THENGOTOESD 

758 GOSUB1SO 

760 OPEN? ,8,2,"@:"+W8+",5,W" 
770 PRINT#2,PO 

89 FÜRN=1TOPO-1 
780 PRINTHE,ASCN) 
390 NEKXTN:FRINTH2 
S1B CLOSE2: IFEN=8G0T0268 
320 A$="N":G0OT0439 
830 IFPFO=597THENPR INT "EIER" SCHRSC14> "—ATEI VOLL !!!":FORA=QTO1OBB:NEXT:GOTO2EB 
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850 
869 
878 
8398 
838 
9299 
sıo 
320 
939 
349 
958 
968 
970 
989 
998 
198998 
1818 
1020 
18398 
1948 
1059 
19068 
1078 
10889 
1898 
1108 
1118 
1120 
1138 
1148 
11598 
1160 
1178 
1188 
1198 
1208 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
12998 
1309 
1318 
1328 
13398 
1348 
13598 
1359 
1378 
1339 
4198 
1398 
1499 
1418 
1428 


PRINT"Ü"FCHR&(142) 


E$&="":PRINT"SINAME BER---------------- "3: INPUTES$ 
IFE$=""THEN269 

IFLEN(E$) >16 THENGOSUB92 : GOTOS38 

G$="":PRINT" SERBEEBLOECKE 3E3-- -DIBRBMIS" ; =: INPUTGS$: IFG$="«" THEN268 


IFLEN{G$&) =QORLEN(G$) >3THENGOSUBSB :ONFL+1GOTOS3O ‚2228 

G$=RIGHTEC" "+6#,53) 

B$="":PRINT' pasta ISKETTE Ea- -CHRRBI=" ; : INPUTBS: IFB$S="«"THEN268 
IFLEN<BS$) >2OR (VAL (B$) =OANDBS< ) "98" JORBS=" " THENGOSUBYB :ONFL+1GOTO839 ,2228 
BS=-RIGHTSC"BOO"+B$,2) 

C#="": PRINT" EIRDIPRIIEIRSEITE 17/2 2a - CRM" > : INPUTCS: IFC$="+" THENZ268 
IFC&< >" L"ANDCS< "2" THENGOSUBYB:ONFL+1GOTOS3Q ‚2228 
PRINT" “1/SPIEL,2/DISKPRG. ,3/BASICERW. „4/USER 
PRINT" S/SPRACHE ‚8/MUS IK ,7/GRAF IK ,8/HILFS) 
D£="":PRINT"OLDIART S- SCHBMl" : : INPUTDS$: IFD$="+" THEN268 

IFYAL (D$)< 1ORVAL (D$) JSTHENGOSUBSB :ONFL+1G0T0838 ‚2228 

E$S=SLEFTSCEE+" " 13)+BE+H"/"4+CH+" n4Gg+" 4DE 
F$="":PRINT"ERBIISBEMERKUNGEN  BEI-----------...0 0. "5 

PRINT" ZIERERNABNNRENRENRERHAMI" > 

INPUTF$: IFLEN<(F$) J2BTHENGOSUBY8:G0TOS3A 

IFF&="+"THEN268 

PRINT" ALLES 0.K. ? £J/WD"; 

GOSUBS8: IFA$="J"THENI189 

IFA$<>"N"THEN1968 

PRINT"O z ":IFFL=SITHENSSB 
GOTO8SSa 

E$S=E$+F$ 

ASCPOI=SES:PO=SPO+1EAS(PO)="" 

IFPO=S07THENPR INT "LIED" ZCHRS(C14) 5 " MTEI VOLL !!!"r:CLOSE1:G0T0258 
ONFL+1G0T0839 ‚22598 

GOTO258 

IFPOSZTHEN238 

PRINT" SCHRSC1IA) "ER AUSGABE AUF ZERUCKER ODER JIMILDSCHIRM ?M":DR=1 
PRINT" AUSGABEGERRET : 3"; 

GOSUBSO: IFA&C >"B"ANDA$<Y"D"THENI1 188 

Al=9: IFA&="D"THENPR INT"—RUCKER":GOTO1259 
IFA$S="B"THENDR=8:PRINT" | ILDSCHIRM" 

PRINT"UI COLL ICH 4 1 = - |EMERKUNGEN"® 

PRINT" ODER 42 m - —TEN ARUSGEBEN ?" 

GOSUBS8: IFA$<" 1 "PORA£>"2"THENI239 

Al=s2:1IFA$="L"THENA1=1 

PRINT" IEBEN SIE DAS $UCHKRITERIUM EIN 4" 

PRINT" 1) KEIN +RITERIUM" 

FRINT"M 2) "TROGRAMM-/AMEN" 

PRINT" 3) "ROGRAMM-ART" 

PRINT" 4) -ISK- /UMMER* 

GOSUBSB: IFA$S="+-"THENZ69 

IFA&<"L"YORA$S>"4"THEN1319 

FRINT"I"SCHRECL42) AR SVAL CAS) :ONARGOTO 1330, 1479 ,1578 ‚15280. 
IFDR=1THENOPENI ,4:CMD1:PRINTR1$7R2$; R3$:R4$:PRINTR 1$3 :60T0 1378 
FRINT" JM" R2&3 

IFA1=1THENPR INTRI$5:G0OT0 1378 

IFAI=ZTHENPRINTR3S$ 

PRINT"E":H=9:FORA=1TIPO-1: IFDR=BTHEN1339 


PRINTLEFTSCAFIA),3O)7CSCVAL CMIDSCASCA) ,31,1)))3SPC<C19)7MIDSCASCA) ‚„32):60T01 


IFAILSZTHENPRINTLEFTSCASCA),3B)5CHCVALCMIDSCASCN),31,1))):G0T01419 
IFAL=ITHENPRINTLEFTE(AS(A), 1895 TABC1S):MIDECASCA) ,32):PRINT 
H=H+1: IFH? 1BOORDR=1THENNEXT: IFDR=1THENPRINT#1:CLOSE1:G0T0268 


IF <DR=BANDH=198 )ORA=POTHENPRINT"M PN TASTE DRUECKEN |! "3: 60SUBS 


8:H=28 


‚1438 


1448 
1459 
14698 


‚1470 


1459 
1499 
15998 
1518 
1528 
1539 

540 


"1550 


‚1550 


1578 
1580 
1598 
1608 
15108 
1828 
1659 
1e42 
1858 
1EEO 
1670 


IFA=POTHENZ6O 

PRINT" AB" 7 R2$: : IFAl=1THENPRINTRIS$ 

IFAL=ZTHENPRINTRSES 

NEXT:GCTO1428 

PRINT" 0" 7 CHRS( 142); "II SUCHEN NACH PROGRAMMNAMEN aaa" 
PRINT "NAME di a a En a En RE RE RHEL " > 

S$="": INPUTS#$: IFS$="+" THENZEO 

IFS$=" "ORLEN(S$)>1STHEN1L478 

GOTO 1632 

PRINT"AS" SCHRECLAEI  " SUCHEN NACH DISKETTEN ang" 
PRINT"DISKETTENNR. 3--CHuBml"; 

SE="": INPUTSE: IFS$= "+" THENZSB 

IFS$=" "ORLEN(SS) JZORYAL (S$) =BTHENLS2O 
SE=SRIGHTESC"BB"+S5$,2):G0CT01698 

PRINT"D"SCHRSCIA): "ml IEBEN SIE DAS $UCHKRITERIUM EIN : aa" 
FRINT'E 1) $PIELE*® 

PRINT" 23 I5K-TROGRAMME " 

PRINT'"M 3) JASICERWEITERUNGEN" 

PRINT'"S 4) ‚„SER-TRÜGRAMME " 

PRINT" S> TROGRAMMIERSPRACHEN" 

PFRINT'S 8) NUSIK-TROGRAMME " 

FRINT"M 7> |IRAFIK-"ROGRAMME " 

PRINT" 8) IILFSPROGRAMME " 

GCSUBSB: IFAS="«-" THEND269 

IFA" L"YORAS>"S"THENI1578 
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1E20 St-A: 


1758 FORA=FUTOFO 


750 SOTOIS2O 
1388 GOTO1328 


1828 IFDR=BOTHEN1848 


58:H=8 
1538 IFA>=FOTHENZEB 
1908 PRINT"Ja";R2$} 


1348 NEXT:GOTO 1838 


20298 IFA&="3"THEN23708 
2040 GOSUB138:FL=1 


20E2 GETHL,AFS,BE,AF,BE 


2159 EF=LEFTSCCH+" 


2178 PRINT '"BRINAME 
2188 PRINT"BBLOECKE : 


2219 IFAFE>"J"THENZ19O 
272E8 PRINT" JeIsHÄAME 
2238 PRINT"IBBLOECKE 
2248 GOTOSS® 

2258 IF ST=8THEN2BEO 


2238 N$="": INPUT"NAME 


& 2350 N$=LEFTSCNS+" 


2420 R4$= "BEMERKUNGEN 
2330 C#i1)="SPIELE 
2448 C$&(2)="DISK 
2458 C$(3)="BASICERW. 
2460 CHt4)="USER 
2478 C$(5)="SPRACHEN 
29458 CE(E)="MUSIK 
2438 C$(7)="GRAFIK 
2508 CE{S)="HILFSPR. 
2518 ASCO)I=CHRECH) 
252 PO=1 
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17E0 ONAR-1GOTO17?798,1780,1818 
1778 IFSSXILEFTECASCA),LENCSSI)THENI9SO 


13818 IFAL=ITHENPRINTR4S$ 
1320 IFAL=ZTHENPRINTR3S$ 
19330 IFhR=2ANDA>FOTHENA=FO:GOTO1338 


1969 PRINT" ODER" 
1378 PRINT"B 25 DIREKT VON DISK" 
1380 PRINT" ODER" 


2038 IFA£="1"THENFL=98:G0T0838 


2070 BL=8: IFA$<>""THENBL=ASC (AS) 

2088 IFBES>*"THENBL=ASC (BE) KESEH+BL 

28998 GET#HI1,BF:IF ST<>BOTHENGOTO226B8 

2190 GET#H1,BE: IFSTIYOTHEN2268 

2118 IF 8$< >CHR$(34) THEN2108 

2128 GET#1,B$:C#="": 1FB$=CHRE(C32)THENZ2 120 

2139 CH=C$+BE:GETH1,B$: IF BSSYCHREC34)THEN2138 
214948 GET#1,B$: IFB$<)""THEN2148 


";BL 
21328 GOSUBSB: IFA&="N"THEN2258 
2200 IFA&="«"THENCLOSE 1:G0T0268 


3 -- -CHENRRI? " ;BL:PRINT"ODIIOND" 


1652 IFDR=1THENOPENI ,4:CMD1:PRINTRI1$7R2$7R3$7R4&:PRINTR 187 :GOTO 1738 
1788 PRINT" 38" ;CHR&(142)7R2$3 

1718 IFAL=1THENPRINTRA4S 
1728 IFA1L=2THENPR INTR3S 
1738 PRINT"M":H=8:FU=S1:F0=PO-1 

1748 IFAR=ZTHENFU=BA(ASC(SEI-1I:FO=SBACASC(SE)) 


1788 IFSEXYMIDECASCA),31,1)THENI33QO 
1818 IFSSS>MIDSCASCA),28,2)THENISSO 


1838 PRINTLEFTE{ASEA),3O)37CHLVAL CMIDSCASCAI,31,13))3SPCC19)7MIDSCASCA),32) 
1848 IFA1=2THENPRINTLEFTSCAELA),SBISZCHCVALCMIDECAF(A),31,1)3):G60T01869 
18598 IFAI=SITHENPRINTLEFTECHFEA), 183 TABCISISMIDECASCA) ,32):PRINT 
18E8 IFPEEK(197)=-57THENA=FO 

1578 H=H+1: 1IFH<XIBORDR=ITHENNEHT: IFDR=1 THENPRINT#1:GOTO2698 

1820 IF<CDR=BANDH=1B)ORA>=FOTHENPRINT'"A P\ TASTE DRUECKEN 


1358 PRINT"W"SCHRECI142): "IQ 1) EINGABE PER HAND" 


1938 FRINT"M 3) DATEI DAZULADEN ?*" 
2880 GOSUBS9: IFA&="«"THENGAQ$="6":G60T0268 
28109 IFAS<"L"ORAS>"S"THENZ22OB 


2059 Q=8:0PEN1,8,0,"$8":GET#1,n$,B$ 


",‚18):1FQ=BOTHENG=1:G60T02259 
21638 PRINT"Ü"SCHRS$(142)5 " eeispRDIEBERNEHMEN (J/ND 7?" 


2269 PRINT"Ü"SCHR$SC14)7 "MA -IRECTORY - "NDE" 
2278 FORA=1TO1898:NEXT:CLOSE1:PRINT#15,*"1":G0T0268 
z2sa PRINT"IIIR"CHRS(142)5 "WELCHES PROGRAMM SOLL GELOESCHT WERDEN ?" 


"NE: IFN$=* "ORLEN(N$I > 1STHENZ2288 


2398 PRINT"EEWIRKLICH (J/NI 7?" 
2318 GOSUBS9: IFAS<>"J"ANDASI"N"THEN23 18 

2328 IFA$="N"THENGAO$S="4":G60T0269 

2339 IFNE£="ALLE"THENFORA=1TOSOTEAECAI=S"":NEXTIGOTOZEO 
2348 PRINT "DOIIND” :G0OSUBZ8608 :PRINT"OITDD" 

" 16): FU=SBACASCCSFI-1I:FO=BACASC(SE)) 
2368 FÜRN=FUTOFO-1: IFLEFTSCASCN), 169° >N$STHENNEXTN:GOTO2388 

2378 FORT=NTOFO-1:AFCTI=ASCT+HIIENEXT:PO=FO-1:G60T0268 
2388 PRINT:PRINT:PRINT" 
2339 FÜRA=BTO18B3:NEXT:AQE="4":G0TO268 
2488 FORA=OTO?3:RL$=R1$+"=":NERKT:R2$= "NAME 
24109 R3z="DISK BLK ART 


NICHT GESPEICHERT I!" 


":50=1 
"saas="4" 
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2330 IFW$=""THEN28O 
Ewa az 2300 GOSUB130 
2530 age 2910 CLOSE2:AG=G:OPEN2,8,2,W5+",5,R" 


2548 ERBESBBE zaL # 2320 PL=8: INPUTH2 ,QQ: IFAS(PO)Y=""THENPL=I 
S=A:FORN=825T0377:READX !FOKEN,X:S=S+X:NEXT: IFS=17663THEN2578 2330 IFOQA=OTHENIR=PO:G0T02338 


2SSO PRINTYIEBEI" SCHRSCIABD." DATA ERROR !!1*:STop Saas VEPDSTTUENEOSE 

2578 DATA160,0,177,47,48,13,200,177,47,16,8,168 ans FORIR-PO-I4PLTOROFRR-E 
2588 DATA4,177,47,201,1,240,1,96 ,24,165,47,105 Bas rm. aweıe 

2530 DATA7,133,110,165,48,105,0,133,111,160,0,177 a Retre 
2600 DATA110,249,238,133,34,280,177,110,153,34,0,192 N, eiserne 
2610 DATAE,208,246,165,110,133,113,165,111,133,114,24 ei Sg 

2628 DATA165,113,105,3,133,113,144,2,230,114,180,0 808 IFASCPO-1)=""THENPO=PO-1160T03100 
2630 DATA177,113,240,61,133,77,197,34,144,2,165,34 2 9 FORATDENEEAMERSMETERT 

2640 DATA133,85,200,177,113,153,77,0,192,2,208,246 i 5 

2658 DATA160,0,177,35,209,78,240,4,176,11,144,287 BB=9 FORA-ETUFOSI YeBiinsüchscad 
2650 DATA200,196,85,208,241,196,34,176,198,188,2,177 ER EETIRRNENE NER j 

2678 DATA118,170,177,113,145,110,153,34,8,138,145, 113 SE EST, 

2688 DATA136,168,240,48,179,24,165,118,105,3,133,110 Band: BOARD 2 

2690 DATA144,143,230,111,208,139 3058 a=ayinı)+a 

en Emma 3070 B.A)=CI:AI=O 

2718 PRINT" Bnee PERT 

2720 GosuB2ssa BR FRE] 

2738 FORN=1TOPO-1:IFLEFTSCASCN) ‚ 18) =LEFTSCASCN+L) „IE )ANDASENI <>" "THENGOTO2758 

2748 NEXTN:GOTO26O 

2759 PRINT"A" SCHRS(142I5 "WELCHER EINTRAG SOLL GELOESCHT WERDEN aid" 

2760 FRINT'Z I 8 :q" 

2770 PRINTLEFTSCASCN) ,30) 3 C$CVAL (MIDSCASCN) „31,19 ):PRINTMIDSCASEN) ‚329 

2739 PRINT"mII 2 m ıq" 

2738 PRINTLEFTSCASCN+1),30)7CSCVAL (MIDSCASCN+L) 31,1) I :PRINTMIDSCASEN+L) ,32) 

2808 PRINT"III AM BITTE '1' ODER '2' DRUECKEN !ı " 
2818 GOSUBSB: IFA&< )" 1 "ANDASC I "2 "ANDASC)"«"THENZSLO 
2320 IFAs="«"THEN2749 

2830 IFA$="2"THENN=N+ 

2048 FORM=NTOPO-1:AS(M)=NECM+L)INEXTIPO=SPO-1:AFSCPO)="" 
2858 N=N-1:60T02748 

2860 PRINT"W"SCHRSC 142) 5 " BIeliehdeleirted BITTE WARTEN I!" RETURN 
2270 PRINTYII" SCHREC14297" WELCHE DATEI SOLL GELADEN WERDEN ?" 

2398 LS="": INPUT" NAME "ss: IFLENCUS) >ISTHEN2830 


3108 IFA$<(PO-1)= 
3118 RETURN 
11111 PRINTPEEK (137):60T011111 


""THENPO=PO-1:G0T03188 


COMMODORE 64 BASIC v2 Wink 
64K RAM SYSTEM 38911 BASIC BYTES FREE 


was passiert eigentlich mit dem 64KRAM des C- 64 


Viele Käufer eines Commodore 64 wundern sich nach dem ersten Srisehffeßeh des Ge&- 
rätes. Der C-64 meldet sich mit 38K freiem Speicherplatz. Da der C-64 jedoch64KRAM 
hat, bleibt häufig die Frage offen: Wohin gehen die restlichen 26 KByte? 


Eine weitverbreitete Meinung 
besagt, daß der restliche 
Speicherplatz für die hochauf- 
lösende Grafik benötigt wird. 
Dies kann aber so nicht 


gelten. 
Denn ca. 20K haben im nor- 
malen Basic-Mode über- 
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haupt keine Funktion. 

Wie das? 

Dazu müssen wir uns den Mi- 
kroprozessor 6510, auf des- 
sen Basis der C-64 arbeitet, 
etwas genauer ansehen. 

Wie die Maschinensprach- 
programmierer wissen, sind 


die Befehle LDA, JMP, JSR 
usw. nur bis ‚zur Adresse 
65535 in Assembler zu 
benutzen. 

Der Commodore 64 hat einen 
Festwertspeicher (ROM) von 
20KByte, davon werden 16K 
für das Basic belegt (Inter- 


Compute mib 


preter). 

Um dieses Problem zu lösen, 
benutzt die Maschine ROM/ 
RAM-Overlays. Das be- 


‚deutet, das einige Speicher- 


adressen im ROM und RAM 
überlappen. Wenn das ROM 
angesprochen wird, überlappt 
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es einen Teil des oberen 
RAM-Bereichs. Dieser RAM- 
Block ist versteckt und kann 
nicht adressiert werden. Lei- 
der werden im Basic-Modus 
16K ROM belegt, sodaß auch 
16K von RAM blockiert sind. 
Die restlichen 4K werden vom 
Basic-Block getrennt und 
können nicht in Basic adres- 
siert werden. 

Untenstehende Tabelle zeigt 
die Adressen, wo ROM und 
RAM überlappen. 


HEX DEZ 
FFFF 65535 
F000 61440 
E000 97344 
D000 53248 
C000 49152 
B000 45056 
A000 40960 
9000 36864 
8000 32768 
7000 28672 
6000 24576 
5000 20480 
4000 16384 
3000 12288 
2000 08192 
1000 04096 
0800 02048 
0000 00000 


E000=16K RAM 
0000-8000=32K Basic 
8000-A000=8K RAM 
A000-C000=8K Basic-ROM 
C000-D000=4K RAM 
(versteckt) 
D000-E000=4K 
Ein/Ausgabe-RAM 
E000-FFFF=8K Kernal ROM 


Von der Adresse $0800 bis 
$9FFF liegt der Speicher- 
bereich für Basicprogramme. 
Von $A000 bis $BFFF liegt in 
der Regel das Basic-ROM. 
Dies kann jedoch beim Pro- 
grammieren in Maschi- 
nencode ausgeschaltet wer- 
den, sodaß der dadurch frei- 
gewordene Bereich vom 
Maschinencode mitbenutzt 
werden kann. 

In Basic kann es nicht ausge- 
schaltet werden, da dieser 
Teil des Speichers dem Mi- 
kroprozessor mitteilt, was die 
Basic-Befehle bewirken. 

Von $C000 bis $CFFF liegen 
4K RAM. Dieser Bereich kann 
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nur im Maschinencode ange- 
sprochen werden, da dieser 
vom Basic-Hauptblock 
($0800-$9FFF) getrennt ist. 
Von $D000 bis $DFFF liegt 
der Ein/Ausgabespeicher, 
welcher das Farbram und die 
SID- und VIC-Chip-Register 
beinhaltet. Das Zeichensatz- 
ROM liegt ebenfalls in diesem 
Teil, er ist aber normaler- 
weise ausgeschaltet. Er wird 
meistens angesprochen, wenn 


selbstdefinierte Grafik- 
zeichen (UDG’s) benutzt 
werden. 


Zum Schluß, von Adresse 
$E000 bis $FFF liegt das 
Kernal-ROM. 

Es ist unpraktisch, das 
Kernal-ROM auszuschalten, 
da die meisten Maschineco- 


deprogramme auch das 
Kernal-Rom benutzen. 
Um dieses ein wenig 


praktisch zu veranschau- 


lichen, poken wir: 


POKE 40960 (Start Basic- 
ROM), 0-255 


und anschließend 


Print PEEK (40960) 


Wir stellen fest, daß als Er- 
gebnis immer 148 erscheint. 
Es kann also in das ROM kein 
Wert eingepoked werden. 
Die Adresse 00801 entschei- 
det, welcher Speicherbereich 
ROM oder RAM ist. Dabei 
werden nur die ersten 3 Bits 
für die Erkennung benötigt. 


ugsimulatoren, Biorhyt., Bercho, 


Lottoberechnung, Krankheitsdiagnose, 


aschinensprachemonitor, Buchhalter 


, Flight I (Sublogic), Quickcopy, 
leterm 64, N Disk- 


maske, Disketten + Boxen, Hifi-Kabel. 


POKE, die es nur im Basic. 


gibt, ausgeschaltet und der 
Computer ”stürzt” ab. 

Will man den ”versteckten” 
RAM-Bereich unter dem 
Bäsic-ROM benutzen, so muß 
in Maschinencode program- 
miert werden. 

Nachfolgend ein kurzes Pro- 
gramm, daß eine kurze MC- 
Routine enthält. 


Hardware: 

Sxschnellere Floppy, Schnell-Save- 
Modul, lOer Tastatur, Speicher- 
erweiterungen 8K-64K RAM, Modul- 
adapter 2/3/5-fach, Telefonmodems, 
40/80 Zeichenkarten, Seel 
Karten, Toolkitmodul, Joysticks 

PIO In/Out-Module, Interface, RS > 
IEEE 488, und...und...und...und.. 


Prüfen Sie 
unser Se En] 


Schnell den Gesamtkatalog 4/84 
anfordern, für 2,50 DM (Briefmarken) ” 
24-Std. Katalogversand. 


Händleranfragen erwünscht. 


[,\ 
mükra 
ATEN: TECHNIK 


"Die Routine legt den Wert in 


Adresse 50030 ab, welche 
vom Basic-Bereich aus ange- 
sprochen werden kann. Sie 
schaltet das ROM bevor es 
wieder in den Basic-Bereich 
zurückspringen kann. 

Nach dem Starten des Pro- 
grammes finden wir den In- 
halt der RAM-Adresse 
40960. Versuchen Sie doch 


10 Data 169,254,45,1,0,141,1,0,173,0,160,141,110,195,169, 1 


20 Data 13,1,0,141,1,0,96 


30 FORA = 50000 to 50022:REM MC in Speicher 


40 READD:POKEA,D:NEXT 


42 SYS50000:REM M/C Aufruf 


45 N=PEEK(50030):REM 
50 PRINT” 


Es schaltet das Basic-ROM 
aus und sucht die Adresse, 
die wir versucht haben, 
einzupoken. 


Adresse 0001 


LORAM 
CHAREN 
HIRAM 


Wenn wir jetzt Poke 1, PEEK 
(1) AND 254 eingeben, wird 
Bit 0 auf O gesetzt und das 


Basic-ROM ausgeschaltet, 


der RAM-Bereich wird frei. Da- 
mit werden aber auch die 
Basic-Befehle PEEK und 


Speicher (wenn 
Bitgesetzi) 


$A000-$BFFF Basic-ROM 
$D000-$DFFF Ein/Ausgabe RAM 
$E000-$FFFF Kernal ROM 


Dieser POKE schrieb tat- 
sächlich etwas in das ”ver- 


. steckte” RAM, wir konnten es 


nur nicht ”peeken”, da die 
Adresse 40960 die unverän- 
derbare Nummer des ROM- 
Bereichs hielt. 
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einmal irgendeine Zahl nach ’ 
40960 zu poken. Wenn Sie 
jetzt PEEK 40960 eingeben, 
wird immer noch der Wert 
148 aus dem ROM-Bereich 
darin stehen. 


“ Starten Sie jedoch das Pro- 


gramm, so bekommen Sie den 


‚Wert, der von Ihnen in den 


"versteckten” RAM-Berkich 


gepoked wurde. 


Für MC-Benutzer fo!gt ein 
kurzes Disassembler-Listing: 


C350 LDA# $FE 
6352 AND $0001 
6355 STA_ $0001 
6358 LDA $A000 
C35B STA $C36E 
C35E LDA $01 
C361 ORA $0001 
C364 STA $0001 
C367 RTS 
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Datenträger: 


Jedes System, das in der Lage ıst, Com 
puterdaten aufzunehmen und zu 


speichern. Dazu gehören unter anderem 
Kassettenrecorder, Disketten, Festplat- 
ten und Laser-Bildplatten. Der wohl älte- 
ste Datenträger ist der Lochstreifen. 


Debugger: 
ıst eın Hilfsprogramm, welches Fehler im 
Programmablauf findet und anzeigt. 


Digital/Analog-Wandler: 

ist eine elektronische Schaltung, die aus 
digitalen Zahlen in die für Menschen ver- 
ständliche Signale verwandelt. So kön- 
nen z.B. vom Kassettenrecorder Töne in 
den Computer überspielt werden, die die- 
ser in Form von Binärzahlen (0-1) auf- 
nimmt: Der D/A-Wandler bewirkt nun, 
daß diese digitalen Töne für den Benutzer 
in Ton oder Schrift wiedergegeben 
werden. 


Directory: 

Als Directory wird das Inhaltsverzeich- 
nis eines Datenträgers bezeichnet. Man 
bekommt einen besseren Überblick über 
vorhandene Programme oder Dateien. Im 
allgemeinen stehen neben dem Pro- 
grammnamen die Länge des jeweiligen 
Programmes und der freie Speicherplatz 
im Directory. 


Direkter Speicherzugrift: 


Ohne daß die CPU (Zentraleinheit) ange- 
sprochen wird, kann der Benutzer Infor- 
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mationen aus einem bestimmten 
Speicher holen und lesen. 


Disassembler: ’ 
Ein Programm, das eın Computer- 
Anwendungsprogramm in Maschinen- 
sprache wieder ın die Assemblerspra- 
che zurückverwandelt. 


DOS: 

Abkürzung für Disketten-Operation- 
System. Das DOS ist verantwortlich für 
den Datenverkehr mit den angeschlosse- 
nen Peripheriegeräten. Disketten-Be- 
triebssysteme sind u.a. CP/M, Unix, PC- 
DOS. Alle werden auf Diskette geliefert 
und um Speicherplatz zu sparen, werden 
Unterprogramme des DOS nur dann ge- 
laden, wenn sie auch wirklich gebraucht 
werden (z.B. Kopie von Daten). 


Datenbank: 

Gesamtheit aller Dateien in einem Datei- 
verwaltungssystem. Datenbanken kann 
man mit Lexika vergleichen. Ein Sam- 
melwerk von Daten, die auf Abruf gele- 
sen, zugeordnet und gespeichert werden. 
Verschiedene Datenbanken können 
heute mit Hilfe eines Akustikkopplers 
angerufen werden; Entfernungen spielen 
keine Rolle mehr. 


Datenhus: 

nennt man die Leitungen, auf denen die 
Daten der verschiedenen Computerbau- 
gruppen transportiert werden. Über den 
Datenbus werden z.B. Mikroprozessor- 
und Speicherbausteine bzw. Ein/ 
Ausgabeelemente miteinander verbun- 
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abe erhöht sich \hr 


n dabei sind. 


den. Die Wortbreite (8bit, 16bit usw.) ist 
maßgeblich für die Anzahl der Leitungen. 
Zu beachten ist, daß dabei die Daten in 
beide Richtungen fließen. 


Datenflußplan: 

ist die schrittweise Darstellung eines’ 
Programmablaufs. Es werden genormte 
Symbole verwandt. Ein Datenflußplan 
beinhaltet im wesentlichen die Art des 
Datenträgers (Diskette, Kassette), die 
Art der Bearbeitung (drucken, Display) 
und die Wege des Datenträgers. 

Der Flußplan zeigt z.B., wie Werte ein- 
getastet werden, wie sie auf dem Bild- 
schirm zu sehen sind, ın den Speicher ge- 
langen und von dort auf den Datenträger 
ausgegeben werden. 


DIAGNOSEPROGRAMM: 

überprüft alle Systemeinheiten des Com- 
puters auf einwandfreie Funktion. Bei 
größeren Rechnern ist solch ein Pro- 
gramm im ROM untergebracht, aber 
auch auf Heimcomputern gibt es per 
Software Diagnoseprogramme. 


DISPLAY: 

andere Bezeichnung für optische An- 
zeige. Ein Display kann eine LCD- 
Anzeige, ein Bildschirm, Leuchtdioden- 
anzeige oder ein Plasma-Display sein. 
Jede optische Darstellungsart von Com- 
puterdaten heißt Display. 


DISTRIBUTOR: 

Ein Händler von Computer-Systemen 
oder Computer-Software in einem be- 
stimmten Vertriebsgebiet. 
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Blockgrafikmode hei 6-64 
Pe ul | - Poke’s für den VC-20 


11818 acs="" 


11028 FORW=1TO48 
11838 QC=PEEK (19824 +(V-1)%x49+ W-1) 


Poke650,255: Dauerfunktion für alle Tasten 


11033 1FOCk 12BTHENGOSUBI 1 1EB:0CS=UCHHCHRELAE) Poke650,127: Ausschalten der Cursor-Dauerlunktionen 
11035 IFOC>I27THENGOSUB 12008 Poke788,194: Macht Stop unwirksam 

11848 NEXTU Poke36881,x(x=0-127): Bildstand von oben nach unten 
11858 PRINTH4,0C$ Poke657,128: Blockiert Shift-Taste 

11060 NEXTV - Poke646,x(x=0-255): Verändert eingebauten Zeichensatz 
11070’ CLasea Poke36869,242: Umschaltung von Groß- in Kleinmodus 
EN Poke36869,240(192): Normal 

11131 IFOCC32THENAC=0C+64:60T011134 Poke36869,255: Ausgangsbasis für selbstdefinierte Zeichen 
11132 IFOC>ESANDAC<IETHENAC=0C+32:601011134 Poke37877,0: Zeitlupe für's Listen 

11133 IFOCYSSANDAC< I2STHENAC=AC +64 Poke775,200: Listschutz ein 

11134 RETURN Poke775,167(199): Listschutz aus 

12008 REM REVERSE Poke650,64: Dauerfunktion für alle Tasten aus 

nn en Poke37154,117: Speert alle Tasten außer ungerade Zahlen 
12820 QCeac-128 1 Print Peek{197):Run: Schreibt, welche Taste gedrückt wurde 
120408 GOSUB11198 

12045 QC$=QC$+CHRS$(OC) $SYS64802: Setzt in den Einschaltzustand 

12059 QC$=OCS+CHRS$(27) OREM’Shift 1’: Schützt Zeile 


12068 acs=acs+ "m" 


Ten; RETURN Print Peek(57): Zeigt, in welcher Zeile gestoppt wurde 


en $: String 

Für den VC-20 ändert man ne: Sale, 

Zeile 11020 in save a$+h$: Bewirken das Abspeichern im Klein-Modus 
For W = 1 to 20 Christian Klose 


.  TASTATUR-MEISTER® ist da! 


Gibt die schnelle Referenz für Befehle, Optionen und Formate direkt an den Arbeitsplatz - 


' 
BASIC | 
Funktionen ; SYNTAX- 
; NOTIZEN 
STEUER- 8: 
TASTEN > 
hnell 
Überblick Referenz 
NEE SEE RB. i N N FARBEN 
ASCII Tabelle zum Aufhängen Tabellen 
icht abgebilde 
# den Sie bi £ ß 
FÜR COM MODORE Senden Sie bitte TASTATUR MEISTER: 
TASTATUR-MEISTER® DO per Nachnahme (zzgl. NN-Gebühr 
VC 20 und C-64 und 5,- DM Versandgebühr) 
® Befehle vollständig vorhanden, mit voll © BASIC x 4 DM 29.90 je) Nie er (zzgl. 5,- DM Versandgebühr) 
ausgeschriebener Befehlsbeschreibung © SIMON'’S BASIC x 4 DM 29.90 g 
j ®@M IPLAN ı DM 29.90 
© Alle Steuertasten übersichtlich o ER x: DM 27.00 
SCHABLONE aus: @ Widerstandsfähigermn Kunststoff (für eigene Anwendungen) 
® Dauerhaftem Druck Schablonen auch für IBM-PC erhältlich. 


®@ Eingeteilt nach Nutzungsbereichen Das 1.1/2 0, BASIC 1.1/2-0 WORDSTAR, MULTIPLAN J 
LOTUS 1,2,3, BLANKO PLZ... 


FRIWA-Vertrieb - Reisingerstr. 6 - 8München 2 : Tel. 089/53 04 50 : Telex 5213775 
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Händeranfragen erwünscht. Hersteller: 


NEU FÜR DEN 
COMMODORE 


Die revolutionäre, 


neue Lernmethode. 


SM SOFTWARE AG / MÜNCHEN 


Neues von der amerikanischen Firma 
Broderbund. 

Der Filmhit "Das fliegende Auge’ war 
Grundlage für dieses neue Spiel. Sie 
selbst steuern einen der modernsten und 


gefährlichsten Kampfhubschrauber der: 


Welt. 

Ihre Aufgabe ist es, nach dem Start von 
einem Flugzeugträger, feindliche Stel- 
lungen zu finden und zu vernichten. 

Der Hintergrund des Spiels ist der, daß 
Ihr Auftrag so geheim ist, daß niemand 
von Ihrer eigenen Armee informiert wer- 
den durfte. 

Folge davon ist, daß die Geschützstellun- 
gen im eigenen Land auf Sie schießen 
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und Sie nach Möglichkeit so wenig wie 
möglich Flaks der eigenen Abwehr ver- 
nichten. Dies ist allerdings sehr schwer, 
da Sie in dem wirklich hektischen Ge- 
schehen sehr schnell den Überblick ver- 
lieren können. 

Nach dem Start müssen Sie erst einmal 
über ausgedehnte Hafenanlagen fliegen 
und das offene Meer erreichen. Während 
dieses Überflugs feuern allerdings ohne 
Unterbrechung Flaks und Panzer auf 
Sie. 

Haben Sie es trotzdem geschafft, das 
Meer zu erreichen, so bleibt Ihnen aller- 
dings auch hier keine Zeit zum Ausruhen, 
die feindlichen so wie die eigenen Schnell- 
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”Gosmic Bouncer” 


Zwischen zwei Planeten pendelt eine 
Raumfähre, die von feindlichen Gestalten 
angegriffen wird. Mit Ihrem Raumschiff 
sichern Sie den Weg der Weltraumfähre. 
Dazu steht Ihnen.ein Energieball zur Ver- 
fügung, der aber immer wieder aufgefan- 
gen werden muß, bevor ein Angreifer da- 
mit unschädlich gemacht werden kann. 
Sie haben insgesamt neun Schiffe für 
Ihre Mission. 

Manchmal müssen Sie ein Schiff opfern, 
um die Zerstörung der Raumfähre zu 


meiden. UM 


boote und Abwehrjäger machen Ihnen 
das Leben zur Hölle. 

Da hilft Ihnen nur Höhe zu gewinnen und 
alles abzuhängen, was hinter Ihnen her 
ist. Die Steuerung des Hubschraubers ist 
einzigartig realistisch. 

Im Grundzug kann man das Spiel als 
"Ballerspiel der 3. Generation” bezeich- 
nen. 

Leider ist es noch nicht auf dem deut- 
schen Markt erhältlich, aber wir sind 
sicher, daß sich ziemlich schnell ein An- 
bieter für diese tolle Simulation findet 


| und Sie sich zuhause den Gefahren der 


Bungeling Bay stellen können. 


ya (im) 
„ „ 
Megahawk 
In diesem unglaublich schnellen 


Weltraumspiel in dreidimensionaler Gra- 
fik müssen Sie den Angreifern, die sich 
Ihnen in den Weg stellen, ausweichen 
oder eleminieren. In immer neuen Bildern 
tauchen Gefahren von allen Seiten auf, 
die es zu meistern gilt. 

Drücken Sie den Feuerknopf und schon 
beginnt das Spiel. 
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“aus COMMODORE 64 BASIC v2 van“ 
64K RAM SYSTEM 38911 BASIC BYTES FREE 


Basic Kurs 
Teil 5 


Die in der letzten Folge gestellte Aufgabe 
war recht einfach zu lösen, wenn man die 
Funktionsweise der FOR...NEXT Schleife 
verstanden hatte. Die fehlende Befehls- 
zeile mußte natürlich die Nummer 111- 
119 tragen. Die korrekte Lösung würde 
also z.B.: 


115 NEXTT 


heißen. Ansonsten hatte sich ja an dem 


Programm nicht viel verändert, außer 


den drei Zeilen 90,100,110. 
In diesen Zeilen wurden die Variablen auf 
den Anfangswert zurückgesetzt. 


Mit dem Erlernen dieser Schleife sind wir 
unserem Endziel, nämlich richtige Pro- 
gramme zu schreiben, wieder ein ganzes 
Stück näher gerückt, auch wenn man die 
vollständigen Anwendungsmöglichkei- 
ten dieses Befehls noch nicht erkennen 
kann. Wir werden in dieser Folge jedoch 
weiter mit der FOR... NEXT Schleife ar- 
beiten und noch einen weiteren Befehl 
erlernen. 


Die Sprunganweisung GOTO 

Dieser Befehl gilt ia der Strukto- 
Programmierung als verpönt, da man bei 
häufiger Anwendung sehr schnell den 
Überblick über sein Listing verliert. Er 
gehört jedoch auch zu den Befehlen, die 
BASIC so komfortabel machen und soll 
deswegen nicht ausgelassen werden. 
GOTO kann man direkt mit'GEHE NACH’ 
übersetzen. 

Die Eingabe dieses Befehls erfolgt immer 
in der Form: 


18. 60T0 100 


Die obige Zeile bewirkt nichts anderes 
als, da der Interpreter, wenn er in Zeile 10 
kommt zur Zeile 100 springen soll und 
alle dazwischen liegenden Zeilen nicht zu 
beachten. 

Man braucht diesen Befehl häufig am 
Ende von Routinen, die so oft wiederholt 
werden wollen, bis irgendeine Situation 
gegeben ist. Dies kann der Wert einer 


Variable sein oder ein Tastendruck. Ab-, 
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gefragt werden diese Werte mit einer be- 
dingten Sprunganweisung, welche wir 
auch noch in dieser Folge erklären 
werden. 

Es handelt sich um: 


Die bedingte Sprunganweisung IF...THEN 
G6TO 


Übersetzt heißt das soviel wie 'WENN...- 
DANN GEHE NACH”. 

Mit IF wird also irgendeine Gegebenheit 
abgefragt oder verglichen. 
Vergleichsoperatoren können dabei 
=(ist gleich), < > (ist ungleich), < (ist 
kleiner als), > (ist größer als) oder die 
Boolschen Logikwerte 'wahr’ und ’un- 
wahr’ sein. 

Zumeist werden Zustände von Variablen 
abgefragt. Dies geschieht in der Form: 


10 IF A=3 THEN GOTO 100 


Die obige Zeile hieße im Klartext: 

Wenn die Variable A den Wert 3 ange- 
nommen hat, dann gehe nach Zeilennum- 
mer 100, andernfalls nimm die nächste 
Zeilenach 10. Man kann also unter Zuhil- 
fenahme dieser Anweisung seinen Inter- 
preter dazu veranlassen, Entscheidun- 
gen zu treffen. 

Aber man kann an die Befehlsfolge 
IF..THEN nicht nur Sprunganweisungen 
anhängen, sondern auch jeden anderen 
Basic-Befehl. 

Man könnte also auch schreiben: 


10 IF A=3 INPUT "NEUER WERT FUER 
A’;A 


oder 
10 IF A=3 THEN B=4 


oder 


10 IF A=3 THEN PRINT "A HAT JETZT 
GERADE DEN WERT 3” 


Sinnvolle Anwendungen für diese Anwei- 
sung gibt es so viele, daß wir sie in einer 
Lektion gar nicht alle bringen können, 
darum werden wir auch diesmal nur zei- 
gen, wie man mit dieser Befehlsgruppe 
frühzeitig eine FOR..NEXT Schleife 
verläßt. 

Wir geben ein: 


10 FOR T=1 TO 30 

20 INPUT B$ 

30 PRINT B$ 

40 IF B$ = "XXX” THEN GOTO 60 

50 NEXTT 

60 PRINT "SIE HABEN SOEBEN UNSERE 
SCHOENE EINGABESCHLEIFE VERLAS- 
SEN!!” 70 INPUT "WOLLEN SIE NOCH 
EINMAL ANFANGEN (J/N)”’; 

A$ 80 IF AS="3" THEN GOTO 10 

90 IF A$="N”THEN PRINT "NA GUT, 
DANN HALT NICHT.” 


Sie können, nachdem Sie mit RUN ge- 
startet haben, irgendwelche Worte oder 
Texte eingeben und der Computer wird 
diese nach Drücken von RETURN auf den 
Bildschirm schreiben. 
Sie verlassen die Schleife automatisch 
nach Eingabe des 30. Wortes oder vor- 
her, indem Sie XXX eingeben und 
abschicken. 
Danach fragt Sie das Programm, ob Sie 
noch einmal beginnen wollen. 
Hier liegt jedoch auch die Aufgabe zur 
nächsten Lektion. Unser Programm hat 
nämlich noch einen kleinen Fehler. Wenn 
Sie in der letzten Frage etwas anderes 
als’J’ oder’N’ eingeben, springt der Com- 
puter zum Ende des Programms. 
Finden Sie also zum nächsten Heft die 
richtige Zeile, die dies verhindert. 
Viel Spaß! 

(tm) 


Der ideale Schönschreibdrucker für Ihren 


C 64* von 


®eingebautes Interface für 


seriellen Port 


@ Adresse 4 oder 5 einstellbar 
® Schreibmaschine mit Korrek- 


turspeicher 


® ON-OFF-Line Taste trennt 


Betriebsarten 


® Zeichenabstand (10, 12 und 
15 Zoll) und Zeilenabstand 


(1, 1 1/2 und 2 zeilig) 
vom Rechner einstellbar 

® ohne Tastatur als compact 
2 RO 


OLYMPIA electronic compact 2 


® 100 Zeichentypenrad 

@ 14 Zeichen/Sekunde 

® Leerstellenunterdrückung 

@ sofort lieferbar 

© enorm preiswert 

® viele Typenräder, Gewebe- 
Karbon-, Multikarbonbänder 

® bundesweiter Werkskun- 
dendienst 


* auch für andere Rechner mit Centronics, V.24 und IEC-Bus. 
Alle OLYMPIA-Drucker (ESW 102, 103 u. 3000) für den C 64 lieferbar 


. Telemannstraße 18 
-Datentechnik 7250 Leonberg (Höfingen) 
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Superdiskette mit Dateiverwaltung, 
Monitor und Zeichensätzen, sowie 
Bauanleitung für 6-mal-schnellere 
1541 und Bauanleitung für 
Spurjustage mit LED-Anzeige für 
1541 incl. Software. Bauanleitungs- 
ausgabe wahlweise. Auf Drucker oder TV. 
DM 75,- gegen NN. 1/4 jährlich neue Disk 
mit $oft- & Hardware. Best.: Rottsieger 
& Heisse, PF. 130401, 5630 Remscheid 


6-64 Deutsche Anl. Colossus Chess 
+ Flight Simulator II je 15.- DM. 
Super-Disk für Einsteiger m. Anltg. 

(2 Seiten voll mit Nutzprogr. + Copy) 
für 40,- DM/nur Vork. (Scheine) an: 
Postlagernd 043163B/4000 Düsseldorf 1 


VC-20 Software! Preisgünstig! 
Liste gegen 80 Pf. Rückporto von 
5 & L-Soft, Postlagernd, 
5014 Kerpenhorrem 


% % %* % Hallo V6-64 User X a A * 


%* Hier gibt's die aktuellste %*: 


% Software. Auswahl aus über 2500 %* 
% Progr. Viele Neuzugänge aus USA %& 
% und GB. Info gegen 1,40 in Brfm. * 
% Über 50 seitige Programmaus- 
% wahl, Udo Göbel, Frohnhausen 471, %& 


% 4300 Essen 1, ©0201/740913 %. 


6-64 7 neue Grafik- + Sound Befehle 

(Print AT, Scroll links + rechts, .. 

‚/Aufruf mit Sys) + Anleitung + alle 

wichtigen POKEs + Tricks auf 

Qualitätscass. = 20 DM (Schein/Scheck) 
Lieferung in 48 Stunden! 

6. Wurzer, Grüntenweg 14, 85 Nürnberg 


6-64 Orig. Softw. auf Disk 
Info gegen Rückporto bei Martin 
Kochloefl, Kreuzstr. 2, 8052 Moosburg 


An Gompute mit 
Fuldaer Straße 6 
Postfach 629 

3440 Eschwege 


Unter der Rubrik "Kleinanzeigen”- 
Gele- 
genheltsanzeigen für Verkaufsan- 
gebote, Kauf- und Tauschgesuche, 
Kontaktaufnahme bzw. Erfahrungs- 


veröffentlichen wir 


austausch usw. 


Preise für Kleinanzeigen”: 


Private Kleinanzeige je Druckzeile 
3,50 DM inkl. MwSt. Chiffregebühr 


je Anzeige 10,- DM. 


Gewerbliche Gelegenheitsanzeige 
je Druckzeile 7,50 DM inkl. MwSt. 
(dürfen nicht unter Chiffre er- 


scheinen). 


Kleinanzeigen 
Jetzt noch 
preiswerter 


62 


2 2 2 22 2 2 2 2 2 2 2 5, 
64er-Progr. zu Superpreisen!!! 
Info gratis! 
F. Zillich, 
Zoppoterstr. 27a, 4000 Düsseldorf 13 


Le 22 22 22222222, 


Commodore 64 - Günstige Gele- 
genheit: Wegen Systemwechsel 250 
Topprogramme auf Disk oder Cassette 
für nur DM 200,- Schein/Scheck 
oder NN. auch möglich 70 Prg. für 
nur DM 50,-. Bestellungen an: 

P. Weber, Alter Teichweg 137 F, 
2000 Hamburg 70 


VC-20 Software billig, billig 
Action, Organisation, Spiele 
Ausführl. Liste gegen 80 Pf. Porto 
anfordern bei: TH. Schläger, 
Elsastraße 28, 2000 Hamburg 76 


BIETE AN HARDWARE 


Commodore 64 Hardwareerweiterungen/ 
Peripherie/Zubehör 
Info gegen 1,- DM in Briefmarken 
EIMERS Datentechnik 
Helmholtzstraße 100 
4200 Oberhausen 1 
©0208/852596 


Fe WPerererererererörerer 


Soft- und Hardware für VC-20 + 64 
Akustik-Koppler, Schnittstelle, 
Doppellauf-Floppy Speichererweiterung 
40/80 Zeichenkarte und Bustreib. 
für 1541, macht Ihre Floppy 8 x 
schneller beim Einlesen. Katalog 
anfordern bei 
Norbert Flesch, Lippspringerstraße 14, 
4650 Gelsenkirchen 
@0209/395447 


Name und Adresse 


Unterschrift 


suche [U] Software 
biete an [[) Software 


Suche billigen 6-64 + Floppy unter 


500 DM. Angebote an Ralf Georg, 
Lambertusstraße 1, 6734 Lambrecht 


VC-20 +8K+16K+24K+32K+36 Progr. . 


zu verk. VB 390,- DM, K. Scherkenbach, 
02267/4870 


Verkaufe 6-64 + Datas. + Gar. + Prog. 


für DM 740,- 
Bei Int. An: Monika Wohlfell, 
Danziger Weg 5, 5434 Dernbach 


@® Spectrum © Spectrum ® Spectrum ® 
Erw. a. 48K 89,- DM, 80K 189,- DM prog. 
Joyst. Intf. 110,- DM, Joyst.Interf. 53,- 
DM dK’Keybord 188,- DM Fuller FDS Key- 
bord 238,- DM Light Pen 84,- DM Floppy 
System lieferbar. Info anfordern, 
Meyer, Rahserstraße 58, 4060 Viersen, 
@02162/22964 Händleranf, erwünscht 


Super Joystick Quickshot II DM 39,50 
für VC-20/C-64 und Atari VCS 

Reset-Taster für VC-20/C-64 DM 10,- 
5,25 Zoll Disketten 10 St. DM 56,- 


Mignon NC-Akkus 10 St. DM 29,- 


Verkaufe: VC-20+Datasettet+16K+8K+ 
3 Bücher+ 2 Module + Spiele für 700 DM 
v. Bucheinzelverkauf &069/372872 


L.a.0 22 22 22 2 2 222 
Soft- und Hardware für VC-20 + 64 
Akustik-Koppler, Schnittstelle, 
Doppellauf-Floppy Speichererw. 
40/80 Zeichenkarte und Bustreib. 
für 1541, macht Ihre Floppy 8 x 
schneller beim Einlesen. Katalog 
anfordern bei 
Norbert Flesch, Lippspringerstr. 14 
4650 Gelsenkirchen 
30209/395447 
2222222222222 


Verk. 6-64 + Rec. + Zubehör mit 11 Mo. 
Garantie für 700,- DM @09562/8843 


xx x x 
Die nächste 


Leicht, 8752 Mainaschaff, #06021/7470%4 ?? IF 1] M PUTE M IT ’ 
gibt es am 17. Oktober 
beim Zeitschriftenhändler 


Völzke 
Jeschke 

Friwa 
iti-Datentechnik 


Auftrag für Gelegenheitsanzeigen in Gompute mit 


Ich zahle sofort nach Rechnungserhalt. 


Ich wünsche folgenden Text zu veröffentlichen, mindestens 3 Zeilen: 


(BI DE DR Ir BR DDR I RR: DD N DD I 
LI ELEREI TITLE EI TER EEE PEN 3 
DEE LELI IT TI TI I TILL EFT 
FI DB | BEN TR RD PR IST PTR: DS RN N DV SD DD DE 
EB. OB DE DR DIR BD a I DE DR BD RI 
BR! I DOM BO DB DIR FR DR DO RR DD DR DE DR a EB | 
ve RD I I PO BI RB: RD BD La LORD DI | 
8 5 0 5 I ER 39 DRS BR IN 1EB Ei IR BER RR U ID U DR DE A| 
[29403 ION DE DO DB DR DAR DR RD BSD RD ET N 
EEE TEE ET ITSTTTIEL FT ILITE | 


suche [[] Hardware 
biete an [] Hardware 


Compute mik 


Inserentenverzeichnis 


Abo.-Nr. 


Datum 


Zutreffendes ankreuzen 
OD Tausch D Versch. 
ÜD Kontakte [DI Chiffre 


10. Oktober ’84 


Liebe Rätsel Freunde, Die Gewinner aus Heft 38/84 


| Ihre ”Compute mit” wird nicht müde sich Woche 
| 
| 
| 


1. Preis 


für Woche eine neue Tüftelei auszudenken, H. Lang, 6057 Dietzenbach 


Heute haben Sie einen sogenannten ”Rösselsprung” 
vor sich, den Sie bestimmt schon aus dem einem oder 
anderen Rätselmagazin oder der Wochenendbei- 
lage Ihrer Tageszeitung kennen. 

Seinen Namen verdankt er der besonderen Art des 
| 

| 

| 


2. Preis 
G. Hirsemann, 4709 Bergkamen 


3. Preis 


Springens (geradeaus oder quer bzw. umgekehrt), J. Kuthleick, 2400 Lübeck 


die dem Springerzug beim Schach entspricht. 

Wir beginnen bei dem durch (*) gekennzeicheten 
Feld und notieren die Buchstaben derjenigen Fel- 
der, die auf unserem Weg angesprungen werden. 
Das letzte Feld ist wieder markiert (0). 

Wenn Ihr Pferd richtig über die Hecken geht, die 
die Felder abgrenzen, so ergibt sich ein Rat, der Ih- 
nen mehr Freude an Ihrem Programm bringt. 

Ein Hinweis ist angebracht: 

Wie beim Schachspiel kann vor und zurückgesprun- 
gen werden. Felder (und damit auch Buchsta- 
ben) können doppelt, ja unter Umständen dreifach 
angesprungen werden. Umgekehrt ist durchaus 
möglich, daß das eine oder andere Feldlinksliegen 


Hier die Gewinner für je 1 Gutschein: 
L. Becker, Göttingen 
M. Timmerman, Moers 
B. Endress, Stuttgart 
J. Stegemann, Brunsbüttel 
D. Speer, Münster 

E. Kraiser, Stuttgart 

B. Eigenmann, Sulzfeld 
P. Werner, Berlin 

T. Wagner, Dortmund 
M. Emmel, Nürnber 

A. Gerbern, München 
W. Torget, Stuttgart 

P. Bernhard, Gladbach 
T. Tiehle, Bergkamen 
K. Reinermann, Stade 
M. Hirmes, Paderborn 
P. Langemann, Essen 
B. Selbald, Köln 

S. Schmider, Fulda 

0. Wernicke, Hannover 
A. Brodel, Görlingen 
St. Rudolph, Emden 


' gelassen wird. Vorsicht ist in jeder Hinsicht 

; geboten. 

; Den Lösungssatz schreiben Sie wieder aufeine Post- 
karte, frankieren ordentlich und schicken das 


Donahuun 
ITIEÄNIDILPEIBFS] 
IWISEFREFE LT] 
IBIPÄUÄHINLORTEN, 
LTIEIMIV.IDSEIRIO, 
JESOIRSAICITEF:SI 
VGRADTITINM 
nangannan 
INIDIK TURE IN.S I CM 


ktober 1984 (Datum des Poststempels). 
oi, toi, toi! 


Roeske-Verlag 
”Gompute mit’ 
Suchrätsel 
Postfach 620 
D-3440 Eschwege 


u gewinnen gibt es wie immer Gutscheine aus unserem Software- } 
1 service. 5 


reiten, 
1} 
VC-20 
VC1000 Gridder Superarcade (o. Erw) DM 29.00 
VC1023 Gridtrap Labyrinth (o. Erw.) DM 35.00 
VC1024 Rescue Weltraumaction (o. Erw.) DM 29.00 
VC1001 Space Attack Arcade (o. Erw) DM 29.00 
VC1005 Martian Raider Arcade (o. Erw.) DM 29.00 Bücher 
VC1007 Moons of Jupiter (+8K) DM 29.00 TS 309017 Commodore 64 Exposed DM 35.00 
VC1018 Line up 4/Reversi (o. Erw.) ' = 25 BV9016 VIE 20 Exposed DM 35.00 
VC1020 Get lost Labyrinth (o. Erw BV9008 Spiele für Ihren VC-20 DM 14,80 
VC1025 Penny Slot (o. Erw.) DM 25.00 . 
VC1028 Power Blaster Arcade (o. Erw.) DM o 
VC1040 Invaders Arcade (o. Erw.) DM 24.0 Commodore 64 
VC1003 Fluch des Pharao Adv. (+ 16K) DM 19.50 CB2004 Hungry Horace Arcade u Spaß DM 29.00 
VC1029 Pedes & Mutants Action’(o. Erw.) DM 29.00 CB2010 Krazy Kong Arcade Spiel DM 29.00 
VvC1041 Log Run Action (o. Erw.) DM 24.00 CB2012 Star Trek Arcade Spiel DM 35.00 
VC1008 Shark Attack Action (o. Erw.) DM 32.00 CB2015 Zappy Zooks Arcade Spiel DM 29.00 
VC1011 Atom Smasher Arcade (o. Erw.) DM 32.00 CB2019 Lander Arcade Spiel DM 35.00 
VC1034 Insector Arcade (o. Erw.) DM 32.00 CB2022 Pakacuda Arcade DM 32.00 
CB2029 Stellar Dodger Arcade Spiel -DM 29.00 
CB2030 Jammin Arcade u. Musik DM 29.00 
CB2031 Jammin Diskette DM 35.00 
CB2032- Pipeline Arcade u. Spaß DM 29.00 
CB2033 Pipeline Diskette DM 35.00 
gg ge re — m u nn CB2003 Gridder Superarcade Spiel DM 29.00 
er I CB2005 Dickys Diamonds Arcade u. Spaß DM 35.00 
WIGOSOFT, Christian Widuch, 5 . 
Nordstraße 22, 3443 Herleshausen | CB2007 Panic Arcade Spiel DM 29.00 
CB2011 Frogger Arcade Spiel DM 29.00 
Bitte liefern Sie | CB2014 Exterminator Arcade Spiel DM 29.00 
O per Nachnahme (zzgl. Gebühren) CB2020 Galaxy Weltraum-Arcade DM 35.00 
O per Vorkasse bzw. Scheck | CB2013 Multisound Synthesizer DM 65.00 
CB2021 Stix Weltraum-Arcade DM 45.00 
Anzahl Artikelbezeichnung Preis | CB2024 Purple Turtles Arcade u. Spaß DM 35.00 


NAME: seen sr eier Bean de ne Bee ae ne Te VIERTE | 


BE a „TOP +++ Stark reduzierte Preise 


